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Documentazione 
delle shape table 


éw * 8 


Questo programma permette di documentare 
le shape table (tabelle di forme) ed in partico¬ 
lare consente di avere: 

— La lunghezza della tabella. 

— Il numero delle shape (forme). 

— Per ciascuna forma l'indirizzo relativo in rap¬ 
porto all'inizio della tabella. 


1U0 rem- 

110 REM DOCUMENTAI1 ONE 

120 REM DELLE SHAPE 

130 REM TABLE 

l *10 REM- 


150 REM *»**«DOC/SHAPE 


160 REM 

-1-INiZIALIZZAZIONE 


170 LOMEM: 2*1576: REM DOPO HGR2 

180 ONERR GOTO 1150 
170 TEXT : HOME 

200 PRINT "NOME DELLA TABELLA... 

210 INPUT ““jN*: IF NI » " THEN 
END 

220 GOTO 1010 
230 REM 

-2-MESSAÙGIO 


2*10 UT AB 20: INVERSE i PRINT MES 

SAGE*: POR I « 1 TO 1000: NORMAL 
: NEXT : UTAB 20: CALL - 86 
8: RETURN 
250 REM 

-3-VERIFICA TABELLA 


260 A = *1 » 16 ‘ 3: POKE 232,0: POKE 
233,64: REM INDIRIZZO TABEL 
LA 

270 MESSAGE* = "CARICAMENTO DI * ♦ 

N*: GOSUB 240 

280 PRINT CHR* <4>"BLOAD"N*",A" 

A 

290 N = PEEK (A): REM NUMERO D 
I SHAPES 


Si possono inoltre vedere le forme su schermo 
o su stampante. 

Le tabelle vengono caricate all'indirizzo 000 
(decimale 16384) sotto la pagina ad alta riso¬ 
luzione HGR2. Il programma di stampa fun¬ 
ziona solo con la stampante SEIKOSHA 
GP-IOOA. 


300 DIM ADRESSE(N): REM TABELLA 
DEGLI INDIRIZZI RELATIVI ' 

310 POR I = I TO N 

320 AL = PEEK (A ♦ 2 « I>: REM 
INDIRIZZO RELATIVO OTTETTO 

330 AH = PEEK (A * 2 « I * 1>: REM 
INDIRIZZO RELATIVO OTTETTO 

340 ADRESSECI> = AH * 256 > AL: IF 
A ♦ ADRESSE(I) > 2 ‘ 16 THEN 
1210: REM INDIRIZZO RELATI 
VO 

350 ZERO ■= 0: IF I > 1 THEN ZERO = 

PEEK <A ♦ ADRESSEC1> - 1): REM 
ULTIMO OTTETTO DELLA SHAPE 
PRECEDENTE 

360 IF ZERO < > 0 THEN GOTO 12 

10: REM NON E" UNA SHAPE TA 
BLE!! ! 

370 NEXT 1 

380 MESSAGE* = N* + " E' UNA SHAP 
E TABLE*: GOSUB 240 

390 RETURN 

400 REM 

-4-LUN6HEZZA DELLA TAB 
ELLA 


410 D » A * ADRESSE(N): REM INDI 
RIZZO ULTIMA SHAPE 

420 IF PEEK <01 < >0 THEN D = 

D ♦ I : GOTO 420: REM LA TAB 
ELLA 1ERMONA CON UNO ZERO 

430 LL = D - A ♦ 1 : REM LUNGHEZZ 
A DECIMALE 

440 REM CONVERSIONE ESADEC1MALE 

450 MSB7. ** LL / 2S6lLSBX = LL - 2 
56 » MSB7. 

460 07.1 1 > = MSB7. / 16:07.(2) = MSB 
7. - 16 * 07.< 1) :07.(3> = LSB7. / 
16:07(4) = LSB7. - 16 » 07.(3) 

: REM QUADRUPLE COSTITUENTI 
L’INDIRIZZO 
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470 FOR I » I TO 4:0*<I) - STR* 
<OX<l> > 

480 1F OX< 1 ) > 9 THEN 0*( 1 > = CHR* 

<ox<i> ♦ 55) 

490 NEXT 
500 RETURN 
510 REM 

-5-RAPPRESENTA2I ONE 


520 1F IRX = I THEN POKE - 162 
97,Oi POKE - 16302,0: POKE 
- 16304,0: GOTO 710 
530 HGR : POKE - 16302,0 
540 IRX = 1 

550 HCOLOR- 3: SCALE- li ROT- 0 
560 Q « 1NT < SOR (N))l REM NB.L 
IGNES 

570 PY = INT <192 / 0>: REM INTE 
RUaLLE EN Y 

580 MY - <192 - <0 - 1> * PY> / 2 
: REM MARCE EN Y 

590 P = INT- <N / Q): IF N > P * 

Q THEN P = P ♦ 1 
600 PX = INT <280 / P) 

610 MX - <280 - <P - 1> » PX) / 2 

620 FOR L = 1 TO 0 
630 FOR F = 1 TO P 
640 I = F * <L - 1> » P 
650 IF 1 > N THEN 710 
660 Y = MY ♦ <L - 1) • PY: REM C 
OTE 

670 X=MX*<F-1)«PX: REM AB 
SCISSE 

680 DRAW 1 AT X, Y 

690 NEXT F 

700 NEXT L 

710 GET A*: TEXT 

720 RETURN 

730 REM 


-6-SU STAMPANTE 
740 REM 

< SOLO STAMPANTE SEIKOSH 
A GP100A SLOTI) 


750 

PRINT 

CHR* 

(13) 

CHR* 

<4)'PR 


HI ' 





760 

PRINT 

CHR* 

( 20 > 



770 

PRINT 

CHR* 

(14) 

TAB< 

20 - t 


<N* ) / 

2>N* 

CHR* 

< 15) : 

PRINT 

780 

GOSUB : 

360 




790 

PRINT 





800 

POKE 

- 12317,0 



810 

PRINT 

CHR* 

< 17) 



820 

PRINT 

CHR* 

< 4)"PRWO' 


830 

RETURN 





840 

REM 






-7-TABELLA INDI RI 221 


870 PR1NT 'DECIMALE -> 'LL 

880 PRINT “ESADECIMALE -> *"0* 

<I>0*<2)0*<3)0*<4) 

890 PRINT : PRINT 'NUMERO DI FOR 
ME 'N 
900 UTAB 9 

910 PRINT 'FORMA'| TAB< 15) ( 'IND 
I RI 220" 

920 POKE 34,10: UTAB 11 

930 FOR 1 = 1 TO N 

940 PRINT TAB< 5 - LEN < STR* 

<1 ) > ) 1 1 1 TAB< 20 - LEN < STR* 
<AD<1)>));ADRESSE(I) 

950 IF IEX - 0 THEN 970 
960 IF I - N OR I - 10 » INT <1 
/ 10) THEN GET A*: HOME 
970 NEXT 
980 1EX = 0: TEXT 
990 RETURN 
1000 REM 

-0-MENU' 


1010 

GOSUB 

260 

1020 

GOSUB 

410 

1030 

HOME 


1040 

PRINT 

'GOMMANO1': PRINT ' 

1050 

PRINT 
. . . 1 ' 
PRINT 
. . .2- 

“DISEGNO DI SHAPES... 

1060 

■TABELLA INDIRIZZI... 

1070 

PP INT 
. . .3' 

“STAMPA. 

1080 

PRINT 
. . .4' 

"ALTRE TABELLE. 

1090 

PRINT 
. . .5' 

"FINE. 

1100 

GET A* 

:AX = UAL <A*> 

1 110 

ON AX 

GOSUB 520,850,750,112 


0,1130: 

bUTO 1030 

1 120 

RUN 


1 130 

TEXT : 

HOME 1 END 

1140 

REM 



-©-TRATTAMENTO ERRORI 
1150 ER - PEEK >222):LI = PEEK 
<218) ♦ PEEK <219) « 256 
1160 IF ER = 6 THEN MESSAGE* = N 
* ♦ ' SCONOSCIUTO': GOSUB 24 
0: RUN 
I170 TEXT 

1130 PRINT CHR* <13) CHR* <4)“P 
RHÙ- 

ll 90 HOME : PRINT 'ERRORE TIPO • 

ER: PRINT “LINEA 'LI: END 

1200 REM 

-9-FILE NON SHAPE T. 


1210 MESSAGE* — N» ♦ * NON E' UNA 
SHAPE TABLE': GOSUB 240: RUN 


350 TEXT : HOME il EX = 1 
860 PRINT 'LUNGHEZZA" 
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Ecco un gioco che menerà a dura prova i vo¬ 
stri riflessi e la vostra abilità nel controllare le 
paddles, Si gioca in due e ciascun giocatore de¬ 
ve fare passare il proprio contrassegno, posto 
all'inizio del gioco nella parte bassa dello scher¬ 
mo, tra i fori che appaiono nelle pareti che via 
via si avvicinano. Se si riesce a centrare il foro 
di passaggio si procede verso l'alto dove il gio¬ 
co diventa sempre più difficile perché si dispo¬ 
ne di un tempo minore per tentare di effettuare 
il passaggio. Vince il giocatore che per primo 
riesce a raggiungere la parte più alta dello 


10 TEXT : ‘.ALL -?3c 
20 GOSUE -150 
30 GOSUB 610 
40 GB 

50 G0L0R=7 
60 FOR A=0 TO 39 
’O HL1M 0,39 AT A 
&(' ME/T m 
90 CGLOR=? 

100 L'LIN 0,39 AT 19 
110 HLIN 0,39 AT 0: HLIN 0,39 AT 
39: VLJII 0.39 AT 0: VLIN 0, 
39 AT 39 

120 S=36: 2=! :W=20 :J=0:Y=3:F=1 :D= 
2u:T=3ó:X=3:G=23:H=23 
130 1F S<=3 THEN 490 
140 IF T =3 THEN 540 
150 CGL0ft=0 
160 B=< PDL < 01/15> +1 
170 C=< PDl. i D/l 3)+20: IF C/=38 
THEN C=38 

180 PLOT B.S: PLOT C ,1 
190 C0LCR=7; GOSUB 400 


20u Z-'Z’I :W-=W+1 : F=F + 1 : 0=D+1 
210 C0L0ft=15 

220 HL. 1N 1,.< «T 2: HL1N X+2,18 AT 
2 

230 HL1N 20,G AT F: HLIN tì+2,36 
AT F 

240 Hl.IN 20 ,H AT D: HL 1N H+2,38 
AT D 

250 HL1N 1 ,< AT W: HLIN Y+2,18 AT 
W 

260 IF SCRN<B,S>=15 THEN GOSUB 
470: IF SCRN<8,S> = 1 T HEN S= 

36 


schermo. Attenzione però che se mancate una 
uscita... tornate indietro al punto di partenza!! 
Il gioco è scritto in Integer BASIC che è una va¬ 
riante molto veloce del BASIC classico. Questo 
BASIC è posseduto da tutti gli appleìsti perché 
fa parte dei programmi forniti con il sistema 
operativo DOS 3.3 o con il nuovo PRODOS. 
Questo linguaggio possiede una bellissima ca¬ 
ratteristica: il controllo della sintassi al momen¬ 
to della introduzione delle linee del program¬ 
ma evitando così i classici SYNTAX ERROR al 
momento dell'esecuzione 


270 IF SCRII 1 : C , T ) = 1 5 THEN GOSUB 
460 : IF SCRN< C,T> = 1 THEN T- 

3 & 

23* GOSUB 400 
290 C OLOR—? 

200 HL 1 II l.Y AT W: HLIN Y+2,18 AT 

W 

31.1 HLIN 2u,G AT F: HLIN G+2,38 
AT F 

220 HLIN 20,H aT D: HLIN H+2,33 
AT D 

330 HLIN ! ,X AT Z: HLIN X+2,18 AT 
340 PLOT B,S: PLOT C,T 

350 !F 2=38 THEN 2=1: IF F=38 THEN 
F= 1 

3i0 IF W=3i THEN W=l: IF D=38 THEN 

D-*l 

370 IF F=1 THEN GOSUB 430: IF D= 

1 THEN GOSUB 440 

230 IF .=1 THEN GOSUB 410: IF W= 

1 THEN GOSUB 420 
390 GOTO 130 

400 POKE 0,100: POKE 1,5: CALL 
2: RETURN 

410 RNB (16>+1 : S=S-3: RETURN 


4.-o i= KNO < Ic>♦ i iS=S-3: RETURN 

430 G= PHD <171+20:T=T-3: RETURN 

440 H= RND <17)+20:T=T-3: RETURN 

450 POKE 2,173: POKE 3,48: POKE 
4,192: POKE 5,136: POKE 6,208 
: FOKE 7,4: POKE 8,198: POKE 
9,1: POKE 10,240 
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4&0 POKE 11,6: POKE 12,202: PO E 
12,208: POKE 14;246: POKE 15 
,166: POKE 16,0: POKE 17,76 
: POKE 18,2: POKE 19,0: POKE 
20,961 RETURN 

470 POKE 0,50: PQKE 1,100: COLOR» 

I: PLOT B,S: CALL 2: RETURN 

430 POKE 0,100: POKE 1,100: COLOR» 
1: PLOT C,T: CALL 2: RETURN 

4«U COLOR»13: POP 1 = 1 TO 38: HLIN 
I,18 AT 1 : NExT 1 : 1F S«T THEN 
590: 

500 COLOR»15: ULIN 4,10 AT 7: PLOT 
8,10: UHM 4,10 AT 9: PLOT 
10,10: ULIN 4,10 AT II 
510 ULIN 12,18 AT 9 
520 VLIM 20,26 AT 7: HLIN 8,10 AT 
21 : ULIN 21 ,26 AT I 1 
530 GOSUB 710: GOTO 720 
540 COLOR»14 : FOR 1 = 1 TO 38: HLIN 
20,38 AT I : NEXT I : IF S=T THEN 
600 

550 CÒL OR»15 : ULIN 4,10 AT 27: PLOT 
28,10: ULIN 4,10 AT 29: PLOT 
30,10: ULIN 4,10 AT 31 
560 ULIN 12,18 AT 29 
570 ULIN 20,26 AT 27: HLIN 28,30 
AT 21 : ULIN 21,26 AT 31 
580 GOSUB 710: GOTO 720 

590 CQL0R=14 : FOR 1 = 1 TO 38: HLIN 
20,38 AT I : NEXT I 

591 L0L0R=15: HLIN 17,21 AT 5: ULIN 
5,10. AT 19 

5^2 ULIN 12,18 AT 19 

593 ULIN 20,26 AT 18: HLIN 19,21 

AT 20: HLIN 19,20 AT 22: HLIN 
19,21 AT 26 


5'-l GOSUB 710: GOTO 720 

600 COLOR»13: FOR 1=1 TO 38: HLIN 
1 ,18 AT I : NEXT 1 

601 COLOR»15: HLIN 17,21 AT 5: ULIN 
5,10 AT 19 

602 ULIN 12,18 AT 19 

603 ULIN 20,26 AT 18: HLIN 19,21 

AT 20: HLIN 19,20 AT 22: HLIN 
19,21 AT 26 

604 GOSUB 710: GOTO 720 
610 FOR 0=17 TO 11 STEP -1 

620 "TAB 10: TAB (Q>: PRINT "»**TORN 
A INDIETRO*»* *: GOSUB 

710: NEXT Q: FOR P=1 TO 1000 
: NEXT P 
620 TaB 5 

640 UTAB 15! INPUT “UUOI LE ISTRUZI0 
NI < S/N > ?■,C* 

650 1F C*=-N- THEN RETURN 
660 CALL -936: UTAB 10: PRINT “FAI P 
ASSARE IL TUO PUNTO NEI FORI• 

: PRINT “DEGLI OSTACOLI." 

670 PRINT “LE PAOOLES CONTROLLANO IL 
MOVIMENTO DEI”: PRINT “DUE G10C 
ATORI“ 

680 PRINT : PRINT "IL PUNTO SALE SU' 
MA SE COLPISCI UN OSTACOLO. 
... TORNI INDIETRO!!“ 

690 PRINT : INPUT "BATTI RETURN PER 
INIZIARE",A4 
700 RETURN 

710 POKE 0,100: POKE 1,100: CALL 
2: RETURN 

720 PRINT : INPUT ■ ANCORA <S/N 
)?",A* 

725 CALL -936 

730 IP A*="S" THEN 40 

740 END 


•«hello 


oppia 


Il gioco dell'Othello comincio ormai ad essere 
abbastanza diffuso e questa versione sfrutta 
la grafica del vostro Apple per renderlo più sug¬ 
gestivo e divertente. 

Le regole del gioco sono facili ma la strategia 
del gioco può essere abbastanza complicata. 
Si gioca su una scacchiera tradizionale e cia¬ 
scun giocatore inizia con una dotazione di 32 
pezzi. Ogni pezzo ha una facciata bianca e 
l'altra nera e ciascun colore contraddistìngue 
un giocatore. Si gioca a turno e. se un giocato¬ 


re si trova nell'impossibilità di fare una mossa 
legale, perde il turno. Quando entrambi ì gio¬ 
catori si trovano in questa condizione la parti¬ 
ta ha termine. 

Il gioco consiste nell’occupare con il proprio pez¬ 
zo un quadrato vuoto della scacchiera. Le pri¬ 
me due mosse di ogni giocatore devono essere 
fatte collocando il pezzo in uno dei quattro qua¬ 
drati centrali. In seguito ciascun concorrente 
metterà uno dei propri pezzi su un qualsiasi 
quadrato vuoto della scacchiera cercando di 
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formare una linea retta (orizzontale, vertica¬ 
le, diagonale), avente ad ogni estremo uno dei 
propri pezzi e, nel mezzo, uno o più pezzi del¬ 
l'avversario. A questo punto i pezzi dell'avver¬ 
sario che si trovano all'interno della linea ret¬ 
ta vengono rovesciati e mostrano quindi le fac¬ 
ciate col colore che contraddistingue l'altro gio¬ 
catore. Vince il concorrente che, al termine del 
gioco, ha il maggior numero di pezzi col pro¬ 
prio colore. 

Il gioco è scritto in Integer BASIC che è una va¬ 
io TEXT ! CALL -934s POKE -14298 
,0 

30 REM GIOCO IL GIOCO DELL'OTELLO 
CON DUE STRATEGIE: 

40 REM I. CATTURA IL MAGGIOR NU 
MERO DI PEZZI 

50 REM 2. AGGIUNGE UN VALORE AL 
LE POSIZIONI LATERALI 
40 REM LÀ SCACCHIERA E' IL VETTORE 
A CIRCONDATO DA SPAZI 
70 REM A=0 CASELLA VUOTA 
80 REM A=B PER CASELLA NERA — X 
«INTERNAMENTE -1> 

90 REM A=W PER CASELLA BIANCA —0 
«INERBAMNETE ♦ I) 

100 REM I E J SEMPRE USATI PER INDI 
CI DI RiGA/COLONNA 
110 REM 14 E J4 MEMORIZZANO GLI INC 
REMENTI PER LE OTTO CASELLE VICI 
NE 

120 REM C* AE D* MEMORIZZANO I CARA 
TTERI -HiX t .10 PER L'OUTPUT 
130 DIM A<100),14(9),J4<9>,X*<I00 

) 

140 REM APERTURA GIOCO 
390 PRINT 

400 REM IN1TIALIZE 

410 PRINT "ASPETTO PRIMA DI MUOVERE 
< SI/NO)?"ì 
420 F2=0 
430 INPUT X* 

440 IF X*<1,!>="N" THEN 480 
450 IF X»«l,l)It“S“ THEN 430 
440 F2=l 

480 PRINT "DEVO GIOCARE AL MEGLIO <S 
I/NO)?"i 
490 S2-0 
500 INPUT X* 

510 IF X»(l,l)“"N“ THEN 540 
520 IF X*(1,1)H"S" THEN 500 
530 S2=2 
540 B=-l 
550 W=*I 

540 I4< I >»0 :14(2) — I : I4(3>“-1 : 14< 

4 >*-1 :14<5> =0114(4)=I :I4<7) 

= 1 :14< 8) = l 

570 J4(l)=l:J4<2)=1:J4«3)=0:J4( 

4> —l :J4<5> — I :J4(4>=-1 :J4< 

7>*0 : J4(8> = 1 

580 REM INIZIA UN NUOVO GIOCO 
590 FOR A=! TO 100 


riante molto veloce del BASIC classico. Questo 
BASIC è posseduto da tutti gli appleisti perché 
fa pane dei programmi forniti con il sistema 
operativo DOS 3.3 o con il nuovo PRODOS. 
Questo linguaggio possiede una bellissima ca¬ 
ratteristica: il controllo della sintassi al momen¬ 
to della introduzione delle linee del program¬ 
ma evitando così / classici SYNTAX ERROR al 
momento dell'esecuzione 
Buon divettimento! 


{,00 A«A)=0 
*10 NEXT A 

620 A< 45)=W:A« 54)=W:A(44)=8:A(55 

>-B 

430 CI=2:HI=2:NI=4:Z=0 

440 REM SCELTE DELL'UMANO 

450 PRINT “VUOI IL ROSA 0 IL VERDE?" 

i:C=W:H=B 
440 INPUT X* 

470 GR : COLOR*1 : VLIN 0,4 AT I 

630 C0L0R=2: HLIN 0,2 AT 5: HLIN 
0,2 AT 7: HLIN 0,2 AT 9: PLOT 
2,4: PLOT 0,8 

490 C0LGR=3: VLIN 10,14 AT 2: HLIN 
0,1 AT 10: HLIN 0,1 AT 14: PLOT 
1.12 

700 C0L0R=4: VLIN 15,19 AT 2: VLIN 
15,17 AT 0 : PLOT 1,17 
710 C0L0R=5: HLIN 0,2 AT 20: HLIN 
0,2 AT 22: HLIN 0,2 AT 24: PLOT 
0,21 : PLOT 2,23 

720 C0L0R=6: VLIN 25,29 AT 0: VLIN 
27,29 AT 2: HLIN 1,2 AT 25: 

PLOT 1,27: PLOT 1,29 
730 COLOR*?: HLIN 0,2 AT 30: VLIN 
31,34 £T 2 

740 CÙL0R=6: VLIN 35,39 AT 0: VLIN 
35,39 AT 2: PLOT 1,35: PLOT 
1,37: PLOT I,39 

750 IF X*<1 ,1)=-R- THEN 740: IF 
X»(I,I)H"V" THEN 440:C»B:H= 

U 

740 INPUT "VUOI GIOCARE PER PRIMO <S 
I/NO)?",X* 

770 CALL -934 

780 GOSUB 2850 

790 IF X*(I,1)="N" THEN 850 

800 IF X*<I,I)M"S" THEN 780 

810 GOTO 1520 

S20 REM MOSSA AL COMPUTER 
830 IF F2=0 THEN 650 
840 IF PEEK (-14364X127 THEN 840 
: POKE -14384,0 
850 81=-25 
S60 I3=0:J3=0 
870 TI=C 
880 T2=H 

890 REM CERCA UNA CASELLA VUOTA 
900 FOR 1=1 TO 8 
910 FOR J=1 TO 8 


8 





920 GOSUB 2930! IF AHO THEN 1230 

930 REM TROVATA UNA CASELLA VUOTA 
9*10 REM HA UN AVVERSARIO VICINO? 

950 GOSUB 2370 

960 IF Fl = 0 THEN 1230 

970 REM TROVATO L'AVVERSARIO VICINO 

980 REM OUANTI DEI SUOI PEZZI POSSO 
GIRARE’ 

990 REM (NON FARLO ADESSO) 

1000 U=-l 
1010 GOSUB 2570 

1020 REM PUNTEGGIO EXTRA PER CASELLA 
LATERALE 

1030 IF S1=0 THEN 1230 

1040 IF <1-1)#<I-8JH0 THEN 1060 

1050 SI-SMS2 

1060 IF <J-l>*<J-81H0 THEN 1080 
1070 SI =S1 *S2 

1080 IF <I-2)*<I-7)HO THEN 1100 
1090 S1-S1-S2 

1100 IF <J-2>«<J-7)H0 THEN 1130 
1110 S1=S1-S2 

1120 REM E' LA MIGLIORE MOSSA TROVAT 
A? 

1130 IF SI<61 THEN 1230 
1140 IF S1)B1 THEN 1190 
1150 REM PARI DECISIONE CASUALE 
1160 R= RND (2) 

1170 IF R>0 THEN 1230 
1180 REM YES 
I 190 B1=S1 
1200 13=1 
1210 J3=J 

1220 REM FINE DEL LOOP DI RICERCA 
1230 NEXT J 

124U NtXI I 

1250 REM POSSIAMO FARE QUALCOSA? 

1260 IF B1H-25 THEN 1340 
1270 REM NO 

1280 PRINT "DEVO PASSARE...- 

1290 FOR X=1 TO 1000: NEXT X 

1300 IF Z=! THEN 1980 

1310 Z=1 

1320 GOTO 1520 

1330 REM FAI LA MOSSA 

1340 Z=0 

1350 PRINT '•MUOVO IN " j 131 * , -jJ3 

1360 FOR X=! TO 1000: NEXT X 

1370 1=13 

1380 J=J3 

1390 U=-l 

1400 GOSUB 2570 

1410 C1=C1«SI♦1 

1420 H1-HI-S1 

1430 NI=N1♦I 

1440 PRINT -GUADAGNO “; SI j■ DEI TUOI 
PEZZI" 

1450 REM STAMPA LA SCACCHIERA 

1460 GOSUB 2850 

1470 FOR X*I TO 500: NEXT X 

1480 REM TEST PER FINE GIOCO 

1490 IF H1=0 THEN 1980 

1500 IF NI=64 THEN I960 

1510 REM MOSSA ALL'UMANO 

1520 TI=H 

1530 T2=C 


1540 PRINT 

1550 PRINT -TOCCA A TE- (RIGA.CO 

D * 1 

I56Ù INPUT I,J 
1570 IF [<0 THEN 1560 
ISSO IF I>8 THEN 1560 
1590 IF IHO THEN 1660 
1600 PRINT -STAI PASSANDO’ (Sl/NO)?- 
I 

1610 INPUT X* 

1620 IF X*<1,I>H-S- THEN 1550 

1630 IF 2=1 THEN 1980 

1640 Z-l 

1650 GOTO 830 

1660 IF J<l THEN 1560 

1670 IF J>8 THEN 1560 

1680 REM CONTROLLA SE VUOTA 

1690 GOSUB 2930: IF A=0 THEN 1730 

1700 PRINT "CASELLA OCCUPATA- 
1710 GOTO 1560 

1720 REM CONTROLLA SE IL VICINO E' L 
EGALE 

1730 GOSUB 2370 

1740 IF FI=1 THEN 1780 

1750 PRINT "MOSSA ERRATA’ 

1760 GOTO 1560 

1770 REM 

1780 U=-l 

1790 GOSUB 2570 

1800 IF SI>0 THEN 1840 

1810 PRINT -MOSSA ERRATA" 

1820 GOTO 1560 

1830 REM TUTTO OK. FAI LA MOSSA 
1840 Z=0 

1850 PRINT -GUADAGNI -jSl; - DEI MIEI 
PEZZI■ 

1860 U=1 

1870 GOSUB 2570 

1880 H1=H1*SI*1 
1890 C1=C1-S1 
1900 NI=N1♦1 

1910 REM STAMPA LA SCACCHIERA 

1920 GOSUB 2850 

1930 REM TEST SE FINE GIOCO 

1940 IF Cl=0 THEN 1980 

1950 IF NI=64 THEN 1980 

I960 GOTO 830 

1970 REM FINE GIOCO 

1980 PRINT 

1990 PRINT -FINE GIOCO--: TAB 3 
2000 IF H1=CI THEN 2040 
2010 IF HI>C1 THEN 2060 
2020 PRINT I* HO VINTO! ! ■ 

2030 GOTO 2070 
2040 PRINT “PARI ’!" 

2050 GOTO 2250 

2060 PRINT "GAI VINTO!•• 

2070 FOR X=1 TO 1000: NEXT X 
2080 Cl=CI-Hl 
2090 CI= ABS (CI> 

2100 CI=(64«CI>/NI 

2110 PRINT : PRINT •E'STATO UN": 

2120 IF C1<11 THEN 2240 
2130 IF CI<25 THEN 2220 
2140 IF CI<39 THEN 2180 
2150 IF CI<53 THEN 2180 
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2160 

PRINT "GIOCO PERFETTO"i 


2170 

GOTO 2250 


2180 

PRINT "A PASSEGGIATA"j 


2190 

GOTO 2250 


2200 

PRINT "VOLO"! 


2210 

GOTO 2250 


2220 

PRINT "GIOCO DURO! ! " 


2230 

GOTO 2250 


2240 

PRINT "SQUASSO!!”! 


2250 

FOR X=l TO 1000: NEXT X: 

PRINT 

2260 

PRINT "GIOCHI ANCORA <SI/NO>?" 

2270 

INPUT X* 


2280 

TEXT : CALL -936 


2290 

IF X*<1,1> = "S" THEN 590 


2300 

IF X*<1,1)H"N" THEN 2270 


2310 

PRINT "GRAZIE PER LA PARTITA" 

2320 

END 


2330 

REM SUBROUTINE PER TESTARE IL G 


(USTO VICINO 


2340 

REM 


2350 

REM 


23*0 

REM 


2370 

FOR Ii=-I TO 1 


2380 

FOR Jl=-1 TO 1 


2390 

IF A<<I*I1>*10*J*J1*1)=T2 
2460 

THEN 

2400 

NEXT J1 


2410 

NEXT I) 


2420 

REM NON TROVATO 


2430 

F!=0 


2440 

RETURN 


2450 

REM SUCCESSO! ! 


24*0 

Fl = l 


2470 

RETURN 


2480 

REM SUBROUTINE PUNTEGGIO 


2490 

REM 


2500 

REM 


2510 

REM 


2520 

REM 


2530 

REM 


2540 

REM IL MAIN CONTIENE IL 

E VETTORE 

SEGUENT 

2550 

REM 14: 0 -I -1 -1 

| | 

0 1 

2560 

REM J4: 1 1 0 -l 

0 1 

-1 -1 

2570 

S1=0 


2580 

FOR K=1 TO 8 


2590 

15“ 14 < K > 



2*00 J5=J4<K> 

2*10 14=1*15 
2620 J4=J*J5 
2430 S3=Ù . 

2640 1F A<16»10*J6*1>HT2 THEN 2820 

2650 REM LOOP THROUGH THE RUN 
26*0 S3=S3*1 
2670 I 4= 14* 15 
2680 J6=J6*J5 

2490 IF A<I6«10*J6*1)=T1 THEN 2720 

2700 IF A<16*10*J6*l>=0 THEN 2820 

2710 GOTO 2660 
2720 Sl=SI*S3 
2730 IF UHI THEN 2820 
2740 REM UPOATE BOARO 
2750 1 <4=1 
2760 Je=J 

2770 FOR K1“0 TO S3 

2780 A<I6*I0*J6*I)=TI 

2790 16=16*15 

2800 J*=Jó*J5 

2810 NEXT K1 

2820 NEXT K 

2830 RETURN 

2840 REM SUBROUTINE CHE STAMPA LA SC 
ACCHIERA 

2850 FOR 1=1 TO 8: FOR J=1 TO 8 
2860 CQLOR=0 : IF A< 1 *10* J* 1 >—1 THEN 
COLOR=11 : IF A<I»10*J*1) = 1 THEN 
COLOR=12 

2870 VL1N I«5-4,1*5-3 AT 4»J: VLIN 
1*5-5,1*5-2 AT 4*J*1 : VLIN 
1*5-4,1*5-3 AT 4*J*2 
2330 NEXT J: NEXT I 
2890 POKE 34,20: POKE 32,0: POKE 
33,39: VTAB 21: TAB 6: PRINT 
•1 2 3 4 5 6 7 8” 

: POKE 34,21 

2900 POKE 32,0: POKE 33,10: VTAB 
22: TA6 1: PRINT "COMPUTER" 

: TAB 4: PRINT CI;* "s 

2910 POKE 32,29: VTAB 22: TAB 3: 

PRINT "UMANO": TAB 5: PRINT 

2920 POKE 32,!1: POKE 33,17: VTAB 
24 : TAB 1 : RETURN 
2930 A=A(1 « 10* J♦1>: RETURN 
2940 A< I * 1 0* J* 1 >=A: RETURN 



Questo piccola utility vi permetterà di perso- I mozione 'DISK VOLUME' con una scritta a vo- 
nalizzare i vostri dischetti sostituendo l'infor- I stro piacere. La modifica avviene nella parte 


IO 








di DOS 3.3 residence in memoria di 11 carat¬ 
teri. Essa potrà apparire in modo normale, op¬ 
pure in inverso, oppure ancora in caratteri lam¬ 
peggianti. 

Se vorrete rendere definitiva la vostra modifi¬ 


10 HOME 

20 REM ******************** 

* * 

* PERSONALI ZZA * 

* » 

* 1 TUOI DISCHETTI * 

* • * 


60 REM 
65 REM 
70 REM 
72 REM 

75 HTAB 10: GOTO 90 
80 HTAB 20 - LEN <Z*> / 2: PRINT 
Z*i RETURN 

90 A* = ■»**»****•*•*«•»*«**■iB» = 
■» #“:Z* * A 

*: GOSUB 80:Z* = 8*: GOSUB 8 
0 : 2% = "«PERSONALIZZAZIONE** 

: GOSUB 80:Z* = 8*: GOSUB 80 
:Z* *= "* DI UN DISCHETTO ** 
100 GOSUB 80 :Z* = BS : GOSUB 80:Z 
* = A*: GOSUB 80 
150 PRINT 

160 PRINT “ CON QUESTO PROGRAMMA 
POTRETE PERSONA-" 

170 PRINT "LIZZARE I VOSTRI DISC 
HETTI SOSTITUENDO" 

180 PRINT "L'INFORMATI ONE DISK V 
OLUME CON QUELLO “ 

190 PRINT "CHE VORRETE.FUNZIONA 
MODIFICANDO IN ME-* 

200 PRINT “MORIA IL DOS. POTRETE 
POI RENDERE DEFI- NITIVA LA 
VOSTRA MODIFICA INIZIALIZZA 
N- DO UN DISCHETTO CON UN PR 
OGRAMMA 'HELLO'DI VOSTRA SCE 
LTA. " 

210 PRINT "LA NUOVA SCRITTA POTR 
A' AVERE UNA LUN- " 

220 PRINT "GHEZZA MASSIMA DI 11 
CARATTERI.* 

240 PRINT * LA SCRITTA PUÒ' ESSE 
RE: " 

250 HTAB 10: PRINT * 1-IN VIDEO 
NORMALE" 

260 HTAB 10: PRINT * 2-IN VIDEO 
INVERSO" 

270 HTAB 10: PRINT * 3-IN MODO L 
AMPEGGIANTE “ 

280 PRINT 

290 PRINT "SCEGLI il,2,3"; : HTAB 
30: INPUT " ? "iAX:A = AX 
295 PRINT : PRINT : PRINT 
300 IF A < 1 OR A > 3 THEN 290 


co dovrete inizializzare un nuovo dischetto con 
un programma HELLO di vostra scelta. Tutte 
le volte che con questo dischetto verrà esegui¬ 
to il comando 'CATALOG' apparirà la nuova 
scritta!! 


310 PRINT : PRINT 
320 PRINT "DAI LA TUA MODIFICA" 
330 PRINT "(MASSIMO 11 CARATTERI 
>■|l HTAB 27: INPUT A* 

350 X = LEN <A*> 


360 

IF X > 

11 THEN 320 



370 

B = li - 

■ X 




380 

IF A « 

1 OR A 

- 3 THEN B* 

- 

390 

Ìf'a - 

2 THEN 

B* = " 

• ■ 


395 

IF B = 

0 THEN 

430 



400 

FOR I - 

■ 1 TO B 



410 

A* = B* 

+ A* 




420 

NEXT I 





430 

FOR J ■ 

■ 1 TO 1 

[ 1 



440 

B* = MI 

D* (A*. 

,J,1> 



450 

IF A « 

1 THEN 

POKE 

46011 

- 


J, ASC 

( B* > ♦ 

128 



460 

IF A = 

2 THEN 

POKE 

46011 

- 


J, ASC 

<B*> - 

64 * < 

ASC 



> > - 

64) 




470 

IF A = 

3 THEN 

POKE 

4601 1 

- 


J, ASC 

<B*> + 

64 * ( 

ASC 

<B* 


> < 64 > 




480 

NEXT J 





485 

HOME 






490 D* = *": REM CTRL-D 
500 PRINT D*i"CATALOG" 

505 PRINT : PRINT 

510 PRINT “VI PIACE LA MODIFICA 

?" 

520 HTAB 10: PRINT *1=SI" 

530 HTAB 10: PRINT "2=N0"il HTAB 

30: INPUT Z: PRINT : PRINT 
540 HOME 

545 IF Z < 1 OR Z > 2 THEN 510 

550 IF Z = 2 THEN 240 

560 PRINT “PER SALVARE QUESTA MO 
DI FICA CARICATE UN PROGRAMMA 
'HELLO' DI VOSTRA SCELTA " 
570 PRINT "ED INIZIALIZZATE UN N 
UOVO DISCHETTO" 

590 PRINT : PRINT : PRINT ■ 

CIAO!! ! ! !" 








Per ricevere gli arretrati di fP^IPUS^ Òi/'fyà compilare il seguente tagliando: 

T Compilare ed inviare in busta chiusa a: 

KJ.SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 
Indirizzo _ 
CAP _ 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 




dedicato 


Anno 

Anno 


a L. 2.000 cad. per un totale di L. a mezzo 

□ assegno allegato □ contanti allegati 



■ty TI-99/4A 

Ddsassembler 

E xicndcd BASIC 


La parola Disassembler ricorda indubbiamen¬ 
te quella giungla di cifre che costituisce il lin¬ 
guaggio Assembler; ma, come ricorda il prefis¬ 
so, ha il vantaggio di sezionarlo rendendolo più 
comprensibile. 

Il programma in questione non si distacca dai 
più comuni Disassembler, che permettono l'as¬ 
sociazione ad ogni OPCODE (istruzione in LM) 
di una rappresentazione, in stringa da una a 
quattro lettere, chiamata MNEMONIC. 
Questo Disassembler infatti decodifica il con¬ 
tenuto della memoria in MNEMONICS-TI stan¬ 
dard, con l'evidente pregio di rendre il LM più 
comprensibile. 


Insomma questa è una "chicca' per i più af¬ 
fezionati 99isti di Papersoft (quelli che non 
scambiano il Linguaggio Macchina con la lin¬ 
gua dei meccanici) che offrirà, con l'ausilio della 
introvabile MINI-MEMORY o del più diffuso 
(grazie alla importazione J.soft) modulo Exten- 
ded BASIC con l'ausilio di una espansione RAM 
di qualsiasi tipo la possibilità di approfondire 
le conoscenze del proprio computer; va benis¬ 
simo anche una di quelle espansioni commer¬ 
cializzate di queste tempi, che non abbisogna¬ 
no di Peripheral Expansion Box o simili. 
Detto questo, buon lavoro! 
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30 REM INI 2IALIZZA 
40 TR=0 :: CALE CLEAR :: PR=0 
50 PRINT "INDIRIZZO DI PARTENZA 
(PUÒ'ESSERE ANCHE UN DECIMALE)?" 

: : INPUT A 
60 IP A = 0 THEN 80 
70 IP A/2<>1NT(A/2)THEN 50 
80 PRINT "END ADDRESS ?" : : INPU 
T B 

90 PRINT "DECODIFICA DA : ";A; H 
A : " ; B 

100 PRINT "VUOI STAMPARE?" :: IN 
PUT J$ 

110 IP J$="S" THEN PR=1 :: CLOSE 
#1 :: OPEN K1:"RS232".OUTPUT 
120 IP A>=B THEN 50 
130 A !-A :: IP A>32767 THEN Al =A 
-65536 

140 CALL PEEK(Al,H,L,01,02,03,04 

) 

150 REM TEST PER OPCODES k ADDRE 
SS MODES 

160 N=H*256+L :: IF N>16383 THEN 
690 

170 IF N>14335 THEN 600 
180 IF N>!2287 THEN 540 
190 IF N>11263 THEN 600 
200 IF N>8191 THEN 600 
210 IF N>4095 THEN 460 
220 IF N>2047 THEN 430 
230 IF N>!023 THEN 380 
240 IF N>831 THEN 790 
250 IF N>511 THEN 270 
260 GOTO 820 

270 REM FORMATO Vili OP-CODES 
280 IF (L AND 16)=16 THEN 820 


290 RESTORE 1020 :: J=480 :: Z=5 
: : K= 32 : : R=(L AND 15): : N=((H 
AND 3)*256)+(L AND 224):: GOSUB 
900 

300 IF TROl THEN 330 
310 C$=STR$(01*256+02): : A=A+4 
320 B$ = "R"&STR$(R)4"," :: GOTO 3 
70 

3 10 Z = 2 :: GOSUB 900 :: IF TROl 
THEN 350 

340 CS*"*' : : A = A+2 :: B$="R"SSTR 
$(R) : : GOTO 370 

350 2 = 2 :: GOSUB 900 :: IF TROl 
THEN 820 

360 B$=STR$(01*256+02): : A=A+4 : 

: CS*"" 

370 GOSUB 860 :: TR=0 :: GOTO 12 
0 

380 REM FORMATO VI OP-CODES 
390 N=(H*256)+(L AND 192):: J=96 
0 :: Z=14 :: K=64 :: RESTORE 100 
0 : : GOSUB 900 
400 GOSUB 930 

410 C$ = "" :: IF A$="B" AND B$="* 
RII" THEN C$="(SAME AS RTS)" 


420 GOSUB 860 :: TR=0 :: GOTO 12 
0 

4 30 REM FORMAiTO V OP-CODES 
440 N=(H AND 11)*256 :: J=1792 : 
: CO=(L AND 240)/16 :: WR=(L AND 
15):: RESTORE 1040 :: Z*4 :: K= 
256 :: GOSUB 900 

450 B$ = "R"&STR$(WR)&"," :: C$=ST 

R$(CO): : A=A+2 :: GOSUB 860 :: T 

R=0 :: GOTO 120 

460 REM FORMAT II OP-CODES 

470 RESTORE 1050 :: J=3840 :: TR 

=0 :: Z=!3 :: K=256 :: N=H*256 : 

: GOSUB 900 

480 IF TR=0 THEN 500 

4.15 IF L>1 27 THEN L-L-256 


490 B$ = STRS(2*L+ 2): : GOTO 520 
500 Z=3 :: K=256 :: GOSUB 900 
510 B$=STR$(L) 

520 ..: A = A+2 :: IF A? = "JMP 

" AND B$="2" THEN C$ = "(SAME AS N 
OP) " 

530 GOSUB 860 : : TR=0 : : GOTO 12 
0 

540 REM FORMATO IV OP-CODES 
550 IF (H AND 252)=48 THEN A$="L 
DCR" : : GOTO 580 

560 IF (H AND 252)=52 THEN A$="S 
TCR" : : GOTO 580 
570 GOTO 820 

580 GOSUB 930 :: NU=((H AND 3)*4 
)+((L AND 192J/64) 

590 C$ = ","SSTRS(NU): : GOSUB 860 

:: TR-0 :: GOTO 120 

600 REM FORMATO III 6. IX OP-CODE 

S 

610 RESTORE 1070 : : J = 7168 :: N= 

( (H AND 60)*256):: D=((H AND 3)* 

4)+((L AND 1 92)/64) : : 2 = 3 :: K=1 

024 :: GOSUB 900 

620 IF TROl THEN 650 

630 CS = " , "& "R"J.STR$ (D) 

640 GOSUB 930 :: GOSUB 860 :: TR 

=0 :: GOTO 120 

650 IF NOI 1 264 THEN 670 

660 A$ = "XOP" :: C$ = "XOP OP *"fcST 

RS(D): : GOTO 640 

670 J=13312 :: Z=2 :: K=1024 :: 

GOSUB 900 :: IF TROl THEN 820 

680 GOTO 630 

690 REM FORMATO I OP-CODES 
700 RESTORE 1080 :: J=122B8 :: N 
= (H AND 240)*256 :: Z = 12 :: K=40 
961 : : GOSUB 900 

710 TD=(H AND 12):: D=((H AND 3) 
*4) + ((L AND 1 92)/64): : GOSUB 930 

720 IF TD=0 THEN C$ = " , " & "R" É.STRS 
(D): : GOTO 770 

730 IF TD = 4 THEN C$ = " , " S." *R"&STR 
$(D): : GOTO 770 
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740 IF TD=12 THEN C$=",*R"6STR$< 
D)&" + " :: GOTO 770 
750 IF (TD=8)AND(D=0)THEN C$=”," 
S,"@"&STR$ (01 *256+02) : : A=A+2 :: 

IF TS = 32 THEN C$, "& "S.STRS (03 
*256+04) 

760 IF (TD=8) AND (DOO) THEN CS = ", 
@"&STRS(01 * 256+02)"(R"& STR$(S)& 
")" :: A=A+2 :: IF TS=32 THEN C$ 
= ",@"(.STRS (03*256+04) S," (R"J,STR$< 
S)4") M 

770 GOSUB 860 :: TR=0 :: GOTO 12 
0 

780 IF (TD=8)AND(D = 0)THEN C$=",@ 
"&STRS(01*256+02): : A=A+2 :: IF 
TS B 32 THEN C5 = ",0"iSTR$(03*256+0 
4) 

790 REM FORMATO VII 
800 N= (H*256+L) : : A=A+2 :: BS = '"' 
:: C$="" :: Z = 6 :: J = 800 :: K=3 
2 :: RESTORE 1100 

810 GOSUB 900 :: GOSUB 860 :: TR 

=0 :: GOTO 120 

820 REM NESSUN OP-CODE 

830 A$="BYTE" :: B$=STR$((H*256) 

+L): : C$=CHR$(H)&" "&CHR$(L):: A 

=A+2 :: GOSUB 860 

840 REM CALL SOUND(800,400,0) : : 

ACCEPT Q4S :: GOTO 97 

850 GOTO 120 

860 REM ROUTINE STAMPA 

870 PT$=STR$(Al)&" "6A$fc H "&BS& 

C$ : : PRINT PT$ : : Al=A 

880 IF PR=1 THEN PRINT #1;TAB(10 

) ; PTS 

890 RETURN 

900 REM RICERCA OP-CODE DAI DATA 


910 FOR 1=1 TO Z :: J = J + K :: REA 
D QS :: IF N=J THEN A$=Q$ :: TR= 

1 

920 NEXT I : : RETURN 
930 REM SUBROUTINE TS ADDRESS 
940 S=(L AND 15):: TS*(L AND 48) 
:: IF TS = 0 THEN B$ = "R"&STR$(S): : 
A 

A+2 :: RETURN 

950 IF TS=16 THEN B$="*R"&STRS(S 

):: A A+2 :: RETURN 

960 IF TS * 4 8 THEN B$* ,, *R"hSTR$ (S 

)&"+" :: A=A+2 :: RETURN 

970 IF (TS=32)AND(S=0)THEN B$="@ 

"iSTK$(01*256+02): : A = A+4 :: RET 

URN 

980 IF (TS*32)AND(S<>0)THEN B$=" 
@"4.STR$ (01 *256+02) &" (R"&STR$ (S) 4. 
")" :: A=A+4 :: RETURN 
990 BREAK 

1000 DATA BLWP , B,X,CLR<NEG,INV>I 
NC,INCT.DEC 

1010 DATA DECT,BL,SWPB,SETO,ABS 

1020 DATA LI,AI,ANDI/ORI,CI 
1030 DATA STWP ( STST , LWPI ( LIMI 
1040 DATA SRA,SRL,SLA,SRC 
1050 DATA JMP,JLT,JLE,JEQ.JHE.JG 
T, JNE 

1060 DATA JNC,JOC.JNO,JL,JH,JOP, 
SBO,SBZ,TB 

1070 DATA COC/CZC , XOR , MPY,DIV 
1080 DATA SZC,SZCB,S,SB,C,CB,A,A 
B 

1090 DATA,MOV,MOVB,SOC,SOCB 
1100 DATA IDLE,RSET,RTWP,CKON,CK 
OF,LREX 



Anche se il suono può ricordare quello di un'al¬ 
tra parola inglese che ha a che vedere con il 
ringraziamento, il titolo di questo gioco se ne 
distacca del tutto: si tratta di guerra; in parti¬ 
colare di carri-armati! 

Vostro compito sarà quello di difendere un pon¬ 
te dell'avanzata dei carri nemici; per cui do¬ 


vrete sparare su di essi senza pietà (al minimo 
sbaglio quelli si voltano e BUM!! Siete fregati!) 
Per fare ciò, premete la barra spaziatrice, in¬ 
sieme al tasto (E) per tiri a lunga gittata,' ed 
insieme al tasto (X) per cose più modeste. 
Detto questo, forza! £ in bocca al Carro! 


W 














10 REM **«***»**»**». 

20 REM ** TANK ** 

23 REM **«**»***»»»** 

26 REM TI-99 BASIC 
30 FOR COL=2 TO 12 
40 CALL COLOR(COL,COL+1,COL+l) 
50 NEXT OOL 

60 CALL SCREEN(2) 

70 CALL CLEAR 


80 PRINT " 


(00 

888 

1 

1 

H 

AA 

A" 







90 PRINT 11 

PPXX 

h 

h 1 

PP 

X 

PP 

P" 







1 00 

PRINT 

II 

XX 

1 

1 

1 1 

0 

( ( 

<" 







1 10 

PRINT 

• • 

00 

8 

8 

8 

A p 

AA 

II 







1 20 

PRINT 

II 

HH 

P 

P 

H 

H p 

XI i 

! " 







1 30 

PRINT 

II 


hYFMh 

A 

A 0 

88 

8 " 







1 40 

PRINT 

II 

XX 

1 

1 

0 

00 

( ( 

r 







1 50 

PRINT 

II 

00 

8 

8 

H 

H 

AA 

A" 







160 

PRINT 







170 

FOR 1 = 

1 

TO 

500 





180 NEXT I 
190 CALL CLEAR 
200 CALL SCREEN(16) 

210 FOR 1=1 TO 12 
220 CALL COLOR(1,2,1) 

230 NEXT I 

240 PRINT "VUOI LE ISTRUZIONI?(S 
/N)" 

250 CALL KEY(0,K,S) 

260 IF K<1 THEN 250 

270 IF K=78 THEN 290 ELSE 2420 

280 GOTO 250 

290 LIFE=3 

300 CALL CHAR(54,"FFFF7E7E3C3C18 
1 8 ") 

310 CALL CHAR(55,"3C3C3C3C3C3C3C 
1 8 ") 

320 DIM P(21) 

330 CALL COLORO,9,1) 

340 DIM R(24) 

350 SHOT-1 

360 CALL COLOR(8,5,1) 

370 CALL COLOR(1,4,4) 

380 CALL SCREEN(8) 

390 SCORE-O 

400 CALL COLOR(13,7,15) 

410 CALL COLOR(15,3,15) 

420 CALL COLOR(16,3,15) 

430 CALL COLOR(12,15,15) 

440 CALL CHAR(120,"FFFFFFFFFFFFF 
FFFFFFF") 

4 50 CALL COLORO 1,13,15) 

460 CALL COLOR(2,2,15) 

470 Y=5 
480 G=1 


490 RANDOMIZE 

500 CALL CHAR(113,"OOOOOOFFOOOOO 
0 0 F " ) 

510 CALL CHAR(112,"3C7EFFFFFFFF7 
FFF" ) 

520 CALL 'CHAR(145,"OOOOEOFOFOEO 8 
OFF") 

530 CALL CHAR(146,"FF7F3F1F0F070 
301") 

540 CALL CHAR(152,"FFFFFFFFAA55A 
AFF") 

550 CALL CHAR(153,"FEFFFFFFFEFCF 
8F0") 

560 CALL CHAR(154,"000080") 

570 CALL CHAR(101,"18183C3C7E7EF 
FFF") 

580 CALL CHAR(91,"183C3C3C3C3C3C 
3C" ) 

590 CALL CLEAR 

600 CALL CHAR(135,"FFFFFFFFFFFFF 
FFFF") 

610 REM PONTE 

620 CALL HCHARdl, 1,135, 32) 

630 CALL VCHAR(12,8,135,4) 

640 CALL VCHAR(12,16,135,4) 

650 CALL VCHAR(12,24,135,4) 

660 CALL VCHAR(12,32,135,4) 

670 CALL HCHAR(8,1,45,32) 

680 CALL HCHAR(7,1,120,32) 

690 CALL HCHAR(6,1,120,32) 

700 CALL HCHAR(4,1,120,32) 

710 CALL HCHAR(3,1,120,32) 

720 CALL HCHAR(9,1,120,32) 

730 CALL HCHAR(10,1,120,32) 

740 CALL HCHAR(5,1,45,32) 

750 CALL HCHAR(2,1,45,32) 

760 CALL HCHAR(1,1,135,32) 

770 CALL CHAR(137,"7E7E7E7E7E7E7 
E7E") 

780 CALL CHAR(136,"3C3C3C3C3C3C3 
C3C") 

790 CALL CHAR(138,"FFFFFFFFFFFFF 
FFF") 

800 CALL COLOR(14,13,4) 

810 GOTO 1700 
820 CALI. KEY (0,M, S) 

830 IF M=69 THEN 890 
840 IF M=88 THEN 930 

850 IF M=83 THEN 970 

860 IF M=68 THEN 1010 

870 IF M= 32 THEN 1060 

880 GOTO 1810 
890 G=G+1 

900 IF G>3 THEN 910 ELSE 920 

910 G=3 

920 GOTO 1360 

930 G=G-1 

940 IF G<1 THEN 950 ELSE 960 

950 G=1 

960 GOTO 1360 

970 Y=Y-1 

980 IF Y<3 THEN 990 ELSE 1370 
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990 

= 3 


1 570 

CALL 

VCHAR(21,Y+2,137,2) 

1 000 

GOTO 

1360 

1580 

CALL 

VCHAR(19,Y+2,136,2) 

1010 

y=y+i 


1590 

IF Y+l=HOR THEN 2070 

1020 

IF Y>27 THEN 1030 ELSE 1360 

1600 

GOTO 

1 810 




1610 

CALL 

VCHAR(22,Y+2,138,3) 

1030 

Y=27 


1620 

LE= 1 1 


1040 

GOTO 

1 360 

1630 

T=3 


1050 

REM 

SPARI GIOCATORE 

1 640 

P=1 3 


1 060 

IF SHOT=0 THEN 1360 

1650 

CALL 

VCHAR(19,Y+2,137,3) 

1070 

CALE 

GCHAR(T,Y+2,XX) 

1660 

CALI. 

VCHAR(16,Y+2,136,3) 

1 080 

FOR 

=F TO T STEP -1 

1670 

IF Y+l=HOR THEN 2070 

1090 

CALL 

GCHAR(1 + 1,Y+2,R(I) ) 

1680 

GOTO 

1810 

1100 

NEXT 

I 

1690 

REM 

TRAIETTORIA NEMICO 

1110 

CALL 

VCHAR(T,Y + 2,101 , LE) 

1700 

K=INT(RND*3)+1 

1120 

CALL 

VCHAR(T,Y+2,91 ) 

1 710 

IF K= 

1 THEN 1740 

1 1 30 

FOR - 

*F TO T STEP -1 

1720 

IF K= 2 THEN 1760 

1 1 40 

CALL 

VCHAR(J+l,Y+2,R(J)) 

1730 

IF K- 

3 THEN 1780 

1150 

NEXT 

J 

1740 

VERT= 

■9 

1160 

CALL 

SOUND(1,1760,0) 

1750 

GOTO 

1 790 

1170 

SHOT= 

SHOT-1 

1760 

VERT 1 

■6 

1 1 80 

IF XX = 11 2 THEN 1 200 ELSE 13 

1770 

GOTO 

1790 

30 



1780 

VERT= 

■ 3 

1190 

CALL 

HCHAR(1+1,Y+2,120) 

1790 

HOR=29 

1200 

SCORE*SCORE+20 

1800 

REM 

MOVIMENTO NEMICO 

1210 

A$=”SCORE="&STR$(SCORE) 

1810 

HOR=HOR-1 

1220 

CALL 

COLOR(3,2,1) 




1230 

FOR 

=1 TO LEN(AS) 

1 820 

IF HOR=2 THEN 1950 ELSE 184 

1240 

CALL 

HCHAR(1,1+2,ASC(SEGS(A 

0 



5,1, 

))) 


1830 

GOTO 

1950 

1 2 50 

NEXT 

I 

1 840 

CALL 

HCHAR(VERT,HOR-1,113) 

1260 

FOR 

=1 TO 16 




1 270 

CALL 

SCREEN(I) 

1850 

CALL 

HCHAR(VERT,HOR,112) 

1280 

CALL 

SOUND(1,1 10*1,1) 

1860 

CALL 

HCHARlVERT,HOR+1,145) 

1290 

NEXT 

I 




1300 

CALL 

SCREEN(8) 

1870 

CALL 

HCHAR(VERT,HOR+2,120) 

1310 

GOTO 

1950 




1 320 

xx=o 


1880 

CALL 

HCHAR(VERT+1,HOR-1,146 

1 330 

CALL 

SOUND(200,-5,0) 

) 



1340 

CALL 

HCHAR(1 + 1,Y+2,120) 

1890 

CALL 

HCHARIVERT+l,HOR,152) 

1350 

1 = 0 





1 360 

CALL 

VCHAR(16,Y+2,32,8) 

1900 

CALL 

HCHAR(VERT+1,HOR + l ,153 

1 370 

CALL 

VCHAR(21,Y,138,4) 

) 



1 380 

CALL 

VCHAR(21,Y-1,32,4) 

1910 

CALL 

HCHAR(VERT+1,HOR+2,154 

1390 

CALL 

VCHAR(21,Y+4,138,4) 

) 



1400 

CALL 

VCHAR(21,Y+5,32,4) 

1920 

CALL 

HCHAR(VERT+1,HOR+3,120 

1410 

CALL 

VCHAR(16,Y+1,32,9) 

) 



1420 

CALL 

VCHAR(16,Y+3,32,9) 

1930 

IF Y+l-HOR THEN 2070 

1430 

REM 

MOVIMENTO GIOCATORE 

1940 

GOTO 

820 




1950 

CALL 

HCHAR(VERT,HOR+1,120) 

1 440 

ON G 

GOTO 1450,1530,1610 




1450 

CALL 

HCHAR(24,Y+2,138) 

1960 

CALL 

HCHAR(VERT,HOR+ 2,120) 

1460 

F=20 




1470 

T=9 


1970 

CALL 

HCHAR(VERT,HOR, 1 20) 

1 480 

LE= 1 1 

1980 

CALL 

HCHAR(VERT,HOR-1,120) 

14 90 

CALL 

HCHAR(2 3,Y+2,1 37) 




1500 

CALL 

HCHAR(22,Y+2,1 36) 

1990 

CALL 

HCHAR(VERT+1,HOR+1,120 

1510 

IF Y+l=HOR THEN 2070 

) 



1 520 

GOTO 

1810 

2000 

CALL 

HCHAR(VERT+1,HOR+2,120 

1 530 

CALL 

VCHAR(23,Y+2,1 38,2) 

) 



1 540 

F=17 

2010 

CALL 

HCHAR(VERT+1,HOR+ 3,120 

1 550 

T=6 


) 



1560 

LE=1 1 

2020 

CALL 

HCHAR(VERT+1,HOR,120) 




2030 CALL HCHAR(VERT +1 ,HOR-1,120 
) 

2040 SHOT^I 

2050 GOTO 1700 

2060 REM SPARO NEMICO 

2070 CALL HCHAR(VERT,HOR-1,120) 

2080 CALL CHAR(114,”3C7EFFCPCFFF 
7FFF") 

2090 CALL HCHAR(VERT,Y+l,114) 
2100 CALL HCHAR(VERT,Y+2,120) 

2110 LE-0 

2120 FOR I=VERT+2 TO 21 
21 30 LE-LE+1 

2140 CALL GCHAR(I,Y+2,P(I) ) 

2150 NEXT I 

2160 CALL GCHAR(Y+2,21,B) 

2170 CALL COLOR(3,10,1) 

2180 CALL VCHAR(VERT4 2,Y + 2,54,LE 
) 

2190 CALL HCHARI21,Y+2,55) 

2200 FOR I =VF.RT+2 TO 21 


2210 CALL HCHAR(I,HOR+1,P(I)) 
2220 NEXT I 

2230 CALL COLOR(3,2,1) 

2240 LE=0 

2250 LIFE=LIFE- 1 

2260 FOR 1=1 TO 10 

2270 CALL SOUND( 10»I , 110*1 , I) 

2280 NEXT I 

2290 IF LIFE<1 THEN 2310 
2300 GOTO 1810 
2310 CALL CLEAR 
2320 FOR 1=1 TO 8 
2330 CALL COLOR(I,2,1) 

2340 NEXT I 


2350 PRINT "ALLA FINE SEI STATO 
COLPITO DA UN TANK NEMICO I"HAI 
F ATTO "; SCORE ;"PUNTI." 

2360 PRINT "UN’ALTRA PARTITA? (S 
/N)“ 

2370 CALL KGY(0,K,S) 

2380 IF K=83 THEN 290 
2390 IF K»78 THEN 2410 
2400 GOTO 2370 

2410 END 
2420 CALL CLEAR 
2430 PRINT 
2440 PRINT 

2450 PRINT "CONTROLLANDO UN CARR 
ARMATO, LA TUA MISSIONE E' DI":" 
SPARARE AI CARRI NEMICI ":"IMPED 
ENDO LORO DI ATTRAVER- SARE IL P 
ONTE." 

2470 PRINT "PREMI LA BARRA PER S 
PARARE." 

2480 PRINT 

2490 PRINT ”<S> TI MUOVE A SINIS 
TRA": "E <D> A DESTRA. ":"<E> AL1.U 
NGA LA GITTATA DEI ”:”TUOI TIRI. 
« 

2500 PRINT "<X> COMPIE L’OPPOSTO 

U 

2510 PRINT 

2520 PRINT "PUOI SPARARE UN COLP 
O ALLA VOLTA E DEVI MIRARE ALLA 
TORRETTA."SE SBAGLI VERRAI 
MIRATO A TUA VOLTA.” 

2530 PRINT "FORTUNATAMENTE HAI 3 
VITE..." 

2540 PRINT 

2550 PRINT "PREMI UN TASTO..." 
2560 CALL KEY(0,K,S) 

2 57,0 IF too THEN 290 ELSE 2560 



Quella di questa settimana è una bellissima ver¬ 
sione in TI.BASIC di uno dei più antichi giochi 
di pazienza e strategia, conosciuto sotto diversi 
nomi; una versione è riportata addirittura sul 
packge della Texas intitolato "Oldies but Goo- 
dies". 

Scopo del gioco è spostare a una a una, verti¬ 
calmente o orizzontalmente, le 32 pedine (di¬ 
sposte sulla scacchiera a croce di 33 casrlle)- 


m modo da "mangiare" quella che viene sal¬ 
tata con un "passo" di due caselle. 
Logicamente, in questo gioco con qualche af¬ 
finità con la celebre dama, lo scopo è restare 
con il minor numero possibile di pedine "im¬ 
mangiabili"; se restrerete senza possibili mos¬ 
se legali e tenterete di farne qualcuna illegale 
sarà il TI stesso a redarguirvi, quindi a buon 
barare! 
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5 rem *** TI-99 BASIC *** 

10 CALL CLEAR 

20 PRINT " SOLITARIO" 
PAPERSOFT 

30 P$="0000001 11 1000000" 

40 CALL CHAR(121 ,PS) 

50 CALL COLORO 2,16,16) 

60 CALL HCHAR(11,1,121,32) 

70 CALL HCHAR09,1,121,32) 

90 PRINT : "VUOI LE ISTRUZIONI 
?" : :"DIGITA, PER FAVORE,-S-O-N-. 

H 

100 CALL KEY(0,K,S) 

110 IP S*0 THEN 100 

120 IP K=83 THEN 140 
130 IP K*78 THEN 230 
140 CALL CLEAR 

150 PRINT "AVRAI A DISPOSIZIONE, 
":"INIZIALMENTE, 32 PALLINE.":: 

160 PRINT "PER SPOSTARLE SULLA T 
AVOLA":"DEVI FORNIRE LE COORDINA 
TE":"DI ORIGINE E DI DESTINAZION 
E" : : 

170 PRINT "LE MOSSE ILLEGALI NON 
":"VERRANNO COMPIUTE.":: 

180 PRINT "SCOPO DEL GIOCO E 1 ":" 
LASCIARE ISOLATO ":"IL MINOR NUM 
ERO":"DI PEDINE”::"BUONA FORTUNA 
!!":::: 

190 PRINT "PREMI UN TASTO" 

200 CALL KEY(0,K,S) 

210 IF S=0 THEN 200 

220 IF K>32 THEN 230 

230 REM 

240 CALL CLEAR 

250 CALL COLOR(5,2,16) 

260 CALL COLORI 12,16,16) 

270 CALL COLOR(6,2,16) 

280 CALL COLOR(3,2,16) 

290 CALL COLOR(4,2,16) 

300 CALL COLOR(7,2,16) 

310 CALL COLOR(8,2,16) 

320 CALL HCHAR(1,9,120,1) 

330 CALL HCHAR(17,9,120,1) 

340 CALL HCHAR(1,10,65,1) 

350 CALL HCHAR(17,10,65,1 ) 

360 CALL HCHAR(1,11,120,1) 

370 CALL HCHAR(17,11,120,1) 

380 CALL HCHAR(1,12,66,1 ) 

390 CALL HCHAR!17,12,66, 1 ) 

400 CALL HCHAR(1,13,120,1) 

410 CALI, HCHAR(1 7,1 3,1 20,1 ) 

420 CALL HCHAR(1,14,67,1) 

430 CALL HCHAR(17,14,67,I) 

440 CALL HCHARtl,15,120,1) 

450 CALL HCHAR(17,15,120,1) 

460 CALL HCHARO,16,68,1) 

470 CALL HCHAR(17,16,68,1) 

480 CALL HCHAR(1,17,120,1) 

490 CALL HCHARH7,17,120,1) 


500 CALL HCHARM ,18,69,1) 

510 CALL HCHAR(17,18,69,1) 

520 CALL HCHAR(1,19,120,1) 

530 CALL HCHARO 7, 19,120,1) 

540 CALL HCHARO,20,70,1 ) 

550 CALL HCHAR(17,20,70,1 ) 

560 CALL HCHARO ,21 , 120,1 ) 

570 CALL HCHAR(17,21,120,1) 

580 CALL HCHARO, 22,71,1) 

590 CALL HCHAR(17,22,71,1 ) 

600 CALL HCHARO , 2 3, 1 20, I ) 

610 CALL HCHARO 7,23, 120, 1 ) 

620 CALL VCHAR(I, 8 ,120,2) 

630 CALL VCHAR(I,24,120,2) 

640 CAI.L VCHAR (3,8,49,1) 

650 CALL VCHAR(3,24,49,1) 

660 CALL VCHAR(4, 8 ,120,1) 

670 CALL VCHAR(4,24,120,1) 

680 CALL VCHAR(5,8,50,1) 

6y0 CALL VCHAR(5,24,50,1) 

700 CALL VCHAR( 6 , 8 ,120,1) 

710 CALL VCHAR(6,24,120,1) 

720 CALL VCHAR(7,8,51,1) 

730 CALL VCHAR(7,24,51,1) 

740 CALL VCHAR( 8 , 8 ,120,1) 

750 CALL VCHAR(8,24,120,1) 

760 CALL VCHAR(9,8,52,1) 

770 CALL VCHAR(9,24,52,1) 

780 CALL VCHAR(10,8,120,1) 

790 CALL VCHAR(10,24,120,1) 

800 CALL VCHAR(11,8,53,1) 

810 CALL VCHAR(11,24,53,1) 

820 CALL VCHAR(12,8,120,1) 

830 CALL VCHAR(12,24,120,1) 

840 CALL VCHAR(13,8,54,1) 

850 CALL VCHAR(13,24,54,1) 

860 CALL VCHAR(14,8,120,1) 

870 CALL VCHAR(14,24, 1 20,1 ) 

880 CALL VCHAR(15,8,55,1) 

890 CALL VCHAR(15,24,55,1) 

900 CALL VCHAR(16,8,120,1) 

910 CALL VCHAR(1 6,24, 1 20, 1 ) 

920 CALL VCHAR(17,8,120,1) 

930 CALL VCHAR(17,24,120,1) 

940 REM 

950 CALL CHAR(96,“3C7EFFFFFFFF7E 
3C" ) 

960 CALL COLOR(9,2,1) 

970 CALL HCHAR(22,1,32,32) 

980 FOR Z*3 TO 15 STEP 2 
990 FOR X=14 TO 18 STEP 2 
1000 CALL HCHAR(Z,X,96,1) 

1010 NEXT X 
1020 NEXT Z 

1030 FOR Z=7 TO 11 STEP 2 
1040 FOR S=10 TO 12 STEP 2 
1050 CALL VCHAR(Z,S,96,1) 

1060 NEXT S , 

1070 NEXT Z 

1080 FOR Z=7 TO 11 STEP 2 
1090 FOR S = 20 TO 22 STEP 2 
1100 CALL VCHAR(Z,S,96,1) 
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Ilio NEXT S 
1120 NEXT Z 
1 1 30 CALI, COLOR(2,2,1 ) 

1140 CALI, HCHAR (9,16,43,1) 

1150 EIN$="DA A " 

1160 FOR K=1 TO 15 

1170 CALL HCHAR(21,K+7,ASC(SEG$( 

EIN$,K,1))) 

1 I 80 NEXT K 
1 I 90 P=32. 

1200 REM 

1210 CALL HCHAR(21,12,32,2) 

1220 CALL HCHAR(21,20,32,2) 

1 2 30 CALL KEY(0,KEY,STATUS) 

1240 IF STATUS*0 THEN 1230 
1250 IF KEY<65 THEN 1230 
1260 IF KEY>71 THEN 1230 
1270 V$ =CHR$(KEY) 

1280 CALL HCHAR(21,12,KEY,1) 

1290 CALL KEY(0,KEY,STATUS) 

1300 IF STATUS=0 THEN 1290 
1310 IF KEY<49 THEN 1290 
1320 IF KEY>55 THEN 1290 
1330 VIS“CHR$(KEY) 

1340 CALL HCHAR(21,13,KEY,1) 

1350 CALL KEY(0,KEY,STATUS) 

1360 IF STATUS=0 THEN 1350 
1 370 IF KEY<65 THEN 1350 
1380 IF KEY>71 THEN 1350 
1390 N$=CHR$(KEY) 

1400 CALL HCHAR(21,20,KEY,1) 

1410 CALL KEY(0,KEY,STATUS) 

1420 IF STATUS=0 THEN 1410 
1 430 IF KEY<49 THEN 1410 
1440 IF KEY>55 THEN 1410 
1150 Ni$=CHRS(KEY) 

1460 CALL HCHAR(21,21,KEY,1) 

1470 REM 
1 480 A= ASC(V$) 

1490 B=ASC(V1$) 

1500 C=ASC(N$) 


1510 

D=ASC(Ni 

S) 




1520 

IF 

A=65 

THEN 

1 560 



1 530 

IF 

A=66 

THEN 

1 560 



1 540 

IF 

A=70 

THEN 

1560 



1 550 

IF 

A=71 

THEN 

1560 

ELSE 

1600 

1 560 

IF 

B=4 9 

THEN 

1210 



1 570 

IF 

B = 50 

THEN 

1 210 



1 580 

IF 

B=54 

THEN 

1210 



1 590 

IF 

B = 55 

THEN 

1210 

ELSE 

1600 

1600 

IF 

C=65 

THEN 

1 640 



1610 

IF 

C = 66 

THEN 

1 640 



1620 

IF 

C = 70 

THEN 

1640 



1 630 

IF 

C*71 

THEN 

1640 

ELSE 

1680 

1 640 

IF 

D=4 9 

THEN 

1210 



1 650 

IF 

D=50 

THEN 

1210 



1 660 

IF 

D=54 

THEN 

1 21 0 



1 670 

IF 

D = 55 

THEN 

1210 

ELSE 

1 680 


1680 

IF D=B-2 THEN 1690 ELSE 170 

0 

1690 

IF A=C THEN 1770 ELSE 

1 21 0 

1700 

A 

IF D = B+2 THEN 1710 ELSE 172 

u 

1 71 0 

IF A=C THEN 1770 ELSE 

1210 

1 720 

IF C-A-2 THEN 1730 ELSE 174 

0 

1730 

IF B = D THEN 1770 ELSE 

1210 

1740 

A 

IF C'A+2 THEN 1750 ELSE 121 

0 

1750 

IF B=D THEN 1770 ELSE 

1210 

1760 

REM 


1770 

S=8 


1 780 

FOR 1=65 TO 71 


1790 

S=S + 2 


1 800 

IF A=I THEN 1820 


1810 

NEXT I 


1 820 

Z = 1 


1830 

FOR 1=49 TO 55 


1 840 

Z = Z*2 


1 850 

IF B=I THEN 1870 


1 860 

NEXT I 


1870 

CALL HCHAR(Z,S,43,1) 


1 880 

CALL SOUND(100,294,0) 


1 390 

REM 


1900 

IF A>C THEN 1910 ELSE 

1 930 

1910 

CALL HCHAR(Z,S-2,43,1) 


1-920 

CALL SOUND(100,294,0) 


1930 

IF ACC THEN 1940 ELSE 

1 960 

1 940 

CALL HCHAR(Z,S+2,43,1) 


1950 

CALL SOUND (100,294,0) 


1960 

IF B>D THEN 1970 ELSE 

1990 

1970 

CALL HCHAR(Z-2,S,43,1) 


1980 

CALL SOUND(100,294,0) 


1990 

IF B<D THEN 2000 ELSE 

2020 

2000 

CALL HCHAR(Z+2,S,43,1) 


2010 

CALL SOUND(100,294,0) 


2020 

REM 


2030 

S = 8 


2040 

FOR 1=65 TO 71 


20 S0 

S=S>2 


2060 

IF C=I THEN 2080 


2070 

NEXT I 


2080 

Z-l 


2090 

FOR 1=49 TO 55 


2100 

Z = Z+2 


2110 

IF D=I THEN 2130 • 


2120 

NEXT I 


21 30 

CALL HCHAR(Z,S,96,1) 


21 40 

CALL SOUNDdOO,220,0) 


21 50 

P=P-1 


2160 

IF P=1 THEN 2170 ELSE 

1210 
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2170 IF C =68 THEN 2180 

2180 IF D=52 THEN 2190 ELSE 2400 

2190 CALL HCHAR(20,1,32,32) 

2200 FOR A=1 TO 10 

2210 CALL SOUND(-100,660,0) 

2220 NEXT A 

2230 FOR A=1 TO 10 

22 4 0 CALL'SOUND(-100,660,0,550,0 

) 

2250 NEXT A 

2260 FOR A = 1 TO IO 

2270 CALL SOUND(-100,660,0,550,0 

,440,0) 

2280 NEXT A 

2290 FOR A=0 TO 30 STEP 2 
2300 CALL SOUND(-100,660,A,550,A 
,440,A) 

2310 NEXT A 

2320 HERZS•” MEGLIO DI COSI'. 

M 

2330 CALL HCHAR(21,1,32,32) 

2340 FOR K“1 TO 23 

2350 CALL HCHAR(21,K+3,ASC(SEGS( 

HERZS,K,1))) 

2360 NEXT K 

2370 CALL HCHAR(21,14,120,1) 

2380 CALL HCHAR(21,27,120,4) 

2390 GOSUB 2510 

2400 CALL HCHAR(21,1,32,32) 

2410 CALL HCHAR(21,4,121,27) 

2420 SIE$="NON C'E'NESSUN VINCIT 
OHE. " 

2430 FOR K=1 TO 25 

2440 CALL HCHAR(21,K+3,ASC(SEGS( 

SIES.K,1))) 


2450 NEXT K 

2460 CALL HCHAR(21,6,120,1) 

2470 CALL HCHAR(21,11,120,1) 

2480 CALL HCHAR(21,17,120,1) 

2490 CALL HCHAR(21,22,120,1) 

2500 GOSUB 2510 
2510 REM 

2520 CALL HCHAR(22,4,120,27) 

2530 NEUS*" VUOI FARE UN* AL 
TRA " 

2540 DRUS*” PARTITA? (<S>/<N>)" 

2550 FOR L*1 TO 27 

2660 CALL HCHAR( 2 3 , L+ 3,ASC(SEG$( 

NEUS,L,1))) 

2570 NEXT L 

2580 CALL HCHAR(23,1,120,4) 

2590 CALL HCHAR(23,30,I20,2) 

2620 CALL HCHAR(24,4,121,27) 

2630 FOR M=1 TO 20 


2640 CALL HCHAR(24,M+3,ASC(SEGS( 
DRUS »M,1))) 

2650 NEXT M 

2660 CALL HCHAR(24,1,120,4) 

2670 CALL HCHAR(24,30,120,2) 

2690 CALL KEY(0,K,S) 

2700 IF S=0 THEN 2690 
2710 CALL HCHAR(21 ,1,32,32) 

2720 CALL HCHAR(23,1,32,32) 

2730 CALL HCHAR(24,1,32,32) 

2740 IF K=83 THEN 950 
2750 IF K-78 THEN 2760 
2760 CALL CLEAR 
2770 STOP 




•Jty TI-99/4A I 




Questo programma vi farà passare le eventuali 
vertigini (o forse ve le aggraverà!) 

Scritto in Extended BASIC, sfrutta al meglio le 
capacità grafiche del TI in un gioco emozionan¬ 
te che non richiede solo fortuna o prontezza 
di riflessi ma soprattutto calcolo e sangue fred¬ 
do. 

Con due opzioni di gioco possibili, dovrete far 
atterrare la maggior parte possibile delle vo¬ 
stre truppe aero-trasportate sulle tre piazzole 


in mezzo all'oceano. 

In questa esercitazione di paracadutismo, per 
evitare spiacevoli bagni in mare, dovrete però 
tener conto della velocità del vento e soprat¬ 
tutto (udite-udite!) del peso di ciascun para¬ 
cadutista! (Ed. in verità, avrete a disposizione 
dei soldati un po' piccioni!) 

Le istruzioni per il gioco sono incluse nel pro¬ 
gramma. 

Buon ammaraggio! 









6 i «**«•**.***»»**«* 

7 !** PARATROOPER ** 

g !*«***»**«**•* * * * * 

9 !TI-99***EXT.BASIC 
20 CALL CLEAR 

30 FOR T=10 TO 14 :: FOR 1=10 TO 
14 :: DISPLAY AT(12,9):"PARATRO 
OPER" 

4 0 CALL SCREEN(T):: NEXT I : : NE 
XT T 

50 CALL CHAR(131,"183C7EC3183C18 
1 8 ") : : CALL SCRF.EN (1 2) 

60 FOR T=4 50 TO 550 STEP 50 : : F 
OR 1=9 TO 19 

70 DISPLAY AT(14,I) :CIIR$(131) 

80 CALL SOUND(10,T,3) : : NEXT I : 

: NEXT T 

90 FOR 1=1 TO 100 :: NEXT I :: G 
OSUB 920 

100 DISPLAY AT(22,2):"VUOI LE IS 
TRUZIONI ?(S/N)" 

110 ACCEPT AT(22,26)VALIDATE("SN 
sn"):YS 

120 IF (YS = "S")OR(Y$ = "s") T1IEN 75 
0 

130 IF (Y$="N")OR(Y$="n")THEN 86 
0 

140 CALL CLEAR :: CALL SCREEN( 8 ) 

150 CALL CHAR(33,"E7A424E7E781A5 
E7",34,"E78585E5E525A5E7") 

160 CALL CHAR(37,"F7941417276141 
47" , 42, 11 503D7C7C7C7A00 8 8 D" ) 

170 CALL CHAR(43," 1 83C7DC3000000 
00",44,"08183878F808FF7E") 

180 CALL CHAR(46,"187E5A183COOOO 
00",98,"01031FFFFFFFFFFF") 

190 CALL CHAR(99,"80C0FCFDFDFFFF 
FFF",107,"FFFFFFFFFFFFFFFF") 

200 CALL CHAR(117,"FFFFFFFFFFFFF 
FFF",122,"OOEOA 6 E 6 A 6 FE 8 AEE") 

210 CALL CHAR(130,"00000173FFFD0 . 
000",133,"FFFFFFFFFFFFOOOO") 

220 CALL CHAR(134,"FCFCFCFCFCFCO 
000", 1 35, " FHFEFEFEFEPE0000" ) 

230 CALL CHAR(I37,"I83C7E7EFFFF1 
818",143,"OE5FFE7F3ElC08O0") 

240 CALL SCREEN( 8 ):: CALL COLORI 
9,4,8,10,6,1) 

250 CALL HCHAR(16,1,107,256) 

260 FOR 1=1 TO 31 STEP 2 :: CALL 
HCHARO6,1,98): : CALL HCHAR(16, 

1 + 1,99) : : NEXT I 
270 POINT=0 :: PARA=10 
280 RANDOMIZE :: FOR N=22 TO 24 
:: G=INT(RND* 100)+10 
290 CALL SPRITE(IN,143,15,G,G+l2 
0,0,.60) : : NEXT N 
300 S=7 :: FOR N = 4 TO 6 : : S=S-1 
:: RANDOMIZE 


310 D= INT ( RND* 5) -fi :: DD= INT (RND 
*14)+3 :: IF (D=OD)+(DD=ODD)+(DD 
=6)THEN 310 

320 OD=D :: ODD=DD :: J=N*10<-90 + 
RND*10 :: CALL SPRITE(#S,44,DD,J 
,J,0,D) : : NEXT N 

330 IF FL=1 THEN 370 ELSE DISPLA 
Y AT<15,5):CHR$(37): : DISPLAY AT 
(15,14):CHRS(34) 

340 DISPLAY AT(15,23):CHR$(33) 
350 CALL SPR1TE(*3,32,1 , 1 80,1 80, 
0,60):: ISPRITE INVISIBILE NELL' 
OCEANO 

360 CALL SPRITE(|7,133,10,121,19 
3,18,135,12,121,121 ,#9,134,14,12 
1,49):: !PIAZZOLE 
370 IF PARA=0 THEN 630 ELSE RAND 
OMIZE :: 0=INT(RND*70)+10 :: IVO 
LO AEREO 

380 CALL SPRITE(#1,130,2,U, 10,0, 
-12,#2,130,16,U,7,0,-12):: ! AERE 
O E PARA' 

390 V=INT(RND* 9)+1 :: L=I NT(RND* 

4)+1 :: ! FATTORI VENTO & PESO 

400 DISPLAY AT(1,1):"PARA 1 RIMAST 
I"; PARA;"--SCORE";POINT 
410 DISPLAY AT(24,2):"VENTO:";L* 
2;"NODI -- PESO"; (V*25)+50 
420 CALL KEY(1,X,Y) 

430 IF X=18 THEN CALL PATTERN(#2 
,1 31 ) ELSE 4 20 

440 CALL MOTION(#2,V,L): : CALL S 
OUND(30,-6,5,150,5) 

450 CALL COINC(#2,#7,Z,C) 

460 CALL COINC(#2,#8,Z,CC) 

470 CALL COINC(#2,*9,Z,CCC) 

480 IF (C=-l)+(CC=-l)+(CCC=-l)TH 
EN 510 

490 CALL COINC(#2,#3,50,R): : IF 
R=-l THEN 570 
500 GOTO 450 

510 CALL MOTION(#2,0,0): : CALL P 
ATTEKN(#2,46):: CALL SOUND(-1500 
,5995,4) 

520 FOR T=950 TO 1500 STEP 50 :: 

CALL SOUND(50,T,3) : : NEXT T 
530 POINT=POINT-25*(C=-l)-50*(CC 
=-l)-75*(CCC=-1) 

540 CALL DELSPRITE(#1,#2): : DISP 
LAY AT(13,5):"MISSIONE COMPIUTA" 

550 FOR 1=1 TO 150 :: NEXT I 
560 CALL HCHAR(13,5,32,22):: GOT 
O 370 

570 CALL MOTION(12,0,0): : CALL S 
OUND(200,-4,3) : : CALL PATTERN(#2 
,43) 

580 FOR 1=1 TO 200 :: NEXT I :: 
CALL PATTERN(#2,42) 

590 CALL DELSPRITE(#1,#2): : DISP 
LAY AT(13,3) :"HAI CICCATO L 1 ATTE 
RRAGGIO" 
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600 P01NT= POI NT-10 :: PARA = PARA- 
1 

610 FOR 1=1 TO 150 :: NEXT I :: 
CALL HCHAR(13,3,32,27) 

620 GOTO 370 

630 CALL HCHAR(1,1,32,29):: CALL 
HCHAR(24,1,32,29) 

640 FOR 1=450 TO 850 STEP 25 s: 
CALL SOUND(50,1,3):: NEXT I 
650 FOR T=850 TO 450 STEP -25 :: 

CALL SOUND( 50,T,3): : NEXT T 
660 DISPLAY AT(7#10):"GAME OVER" 

670 DISPLAY AT(9,6):"HAI FATTO"; 
POINT;"PUNTI" 

680 DISPLAY AT(12,2):“VUOI RITEN 
TARE? (S/N)" 

690 ACCEPT AT(12,25)VALIDATE("SN 
" ) : R$ 

700 IF R$="N" THEN 730 

710 CALL HCHAR(12,4,32,26):: CAL 

L HCHAR(7,12,32,9)CALL HCHAR( 

9,6,32,24) 

720 FL*1 GOTO 270 
730 CALL CLEAR :: CALL DELSPRITE 
(ALL):: CALL SCREEN(14):: DISPLA 
Y AT(12,10):"CI VEDIAMO!" 

740 GOSUB 920 :: END 

750 CALL CLEAR CALL SCREEN(12 

) 

760 PRINT "LANCIA I TUOI PARACAD 
UTISTI","SULLE PIAZZOLE DA 75, 5 
0, O" 

770 PRINT “25 PUNTI. LANCIALI CO 
N IL","TASTO DEL JOYSTICK HOC 
ON","IL TASTO <Q>.": : 

780 PRINT "SE SBAGLI,CADRAI NELL 
'OCEANO","PERDENDO IL PARA'E 10 
PUNTI." 

790 PRINT "HAI A DISPOSIZIONE PE 
R OGNI"."PARTITA 10 PARACADUTIST 
I.”: : :: PRINT "LA VELOCITA' DE 
L VENTO ED IL" 


800 PRINT "PESO DI OGNI PARA' E' 
".'•MOSTRATO A FONDO-SCHERMO"T 
1ENI CONTO DI VELOCITA' DI" 

810 PRINT “DISCESA E DI SPOSTAME 
NTO 

820 PRINT "PRIMA DI EFFETTUARE O 
GNI".“LANCIO, VALUTALE BENE!": : 

830 PRINT TAB(10);”IN BOCCA AL L 
UPO!": : 

840 PRINT TAB (4) ;•'PREMI UN TASTO 

850 CALL KEY(0,K,S) : : IF S = 0 THE 
N 850 

860 CALL CLEAR :: DISPLAY AT(8,6 
) -."ESPERIENZA DEI PARA'?" 

870 DISPLAY AT(11,2):“<P>IVELLO 
O <V>ETERANO" 

880 ACCEPT AT(8,27)VALIDATE("VP" 
) :C5 

890 IF C$="V" THEN 910 

900 CALL MAGNIFY(2): : Z = 10 :: GO 

TO 140 

910 Z=5 :: GOTO 140 

920 CALL SOUND(300,330,3):: CALL 

SOUND(300,392,3) 

930 CALL SOUND(500,392,3): : CALL 
SOUND(200,349,3) 

940 CALL SOUND(100,330,3): : CALL 
SOUND(200,294,3) 

950 CALL SOUND(300,330,3):: CALL 
SOUND(300,349,3) 

960 CALL SOUND (300,370,3):: CALL 
SOUND(300,392,3) 

970 CALL SOUND(250,440,3):: CALL 
SOUND(150,524,3) 

980 CALL SOUND(500,524,3) 

990 CALL SOUND(300,583,3): : CALL 
SOUND(100,523,3) 

1000 CALL SOUND(200,440,3): : CAL 
L SOUND(300,392,3) 

1010 RETURN 


Corsa campestre 


MSX 
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Questo è un gioco per persone veramente spor¬ 
tive. Siete impegnati in una estenuante corsa 
campestre sulla distanza di 1000 metri. Il per¬ 


corso è reso impegnativo dalla presenza di pro¬ 
fonde buche che voi dovete saltare premendo 
la barra-spazio; agendo sui tasti cursore potè- 









te aumentare o diminuire la velocità della cor¬ 
sa, Ma i problemi non terminano qui: infatti 
imperversa sulla zona un violento temporale, 
e voi dovrete essere abili ad evitare di essere 
colpiti dai fulmini che vi cadono vicini. La ca¬ 
duta in una buca vi farà perdere solo dei se¬ 
condi preziosi, ma l'essere colpiti da una saet¬ 
to vi farà naturalmente abbandonare la gara. 


In questo programma viene utilizzata una rou¬ 
tine in linguaggio macchina per lo scroti dello 
schermo. È quindi possibile, modificando la li¬ 
nea 180, il cui INTERVAL richiama la subrou¬ 
tine scroti, accelerare o rallentare lo scorrimento 
dello sfondo. 

La linea 90, invece, controlla la velocità del cor¬ 
ridore: provate a modificarne i valori. 


1 REM CORSA CAMPESTRE 

2 REM INIZImL122A2IONE 
S OÙSUBduuÓO 

Ut XEYOFF.COLOR 15.4,7 SCREEN1 ,3 FORI«il 
032 REmVÙ mì=A**CHRI<Q). NEXT:SPR 1 TEI<0>• 

Al M 1 1 * “ 

15 F0RI = n032:REAP0 AI»AI*CHRI<Ù>HEXT S 
PRITEK1>=A* Hf" 

20 FOR1=11032:REABG . A* = A* KHR* < 0) : NEXT S 
PRITEI«2)=AI A«=““ 

25 FÙRI-1T032 REABO AI*A»*CHRI<0> NEXTS 
PR1TEI< 3 )*AI 

30 FORI=66350 1 TG60401! REAOG POXEI.O NEX 
T PEFUSR2«60350! POKE60346' .6 PÙKE60347! 

,24:P0KE60348!.223 :P0KE60349•,25 

35 FORI=1072TO1215:READÙ:VPOKEI,Q NEXT 
50 F0RI=1T011:PRINT•NEXT PRlNTTA8<8)“COR 
SA CAMPESTRE" 

55 I)EFU$R = b0000! : l’EFUSRl = 60118 • P0KE5999 
9 ! , 1 :P0KE5999Ó!,10 P0KE59997! ,6 P0KE5999 
6' ,3 

60 PUTSPRITE0,<0.55>,1 

45 IFINKEYI=““THENIFVPEEK<6914)=0THEMVPO 
KE6914.4EL$EVPÙKE6914,8ELSE60T086 
70 D=USR1<D) 60T065 

80 PRIIIT PRINT INPUT‘Llw«llo 3i ditficol 
t*- a-3)‘,L» 

85 IFLl<<lÙRLl>>3TMFN80 
90 PÙKE59999 ! , LI>*2 

99 REM MSE6N0 SCHERNO 

100 POTSPRITEO.<100,200) CLS:FORI=6609TO 
4873 VPOKEI,134 NEXT 

105 VP0KE6592.134 VP0KE6593.134 VPÙKE659 
4.134 VP0KE6595.139 VP0KE659D.138 FORl-6 
597T06404 VPOKEI,134 NEXT VPÙKE4607,139 
VPOKÉ6609,138 

110 VPOKE4540,135.VP0KE6561,135 VP0KE656 
2,134:VP0KE4543,137 FORI=d 565T06574 VPOK 
EI,135 NEXT VPOKE6575.137 FORI-6578T0658 
4.VPOKEI,135 NEXT VPOKEo587,136 VP0KE658 
8,137•VPUKE4569,138 
115 VP0KE4590,135 :VPÙKE4591.135 
120 VP0KE6152.142 FORI=ol53Tùb163 VPOKEI 
,140 NEXT VP0KE6164.146 VP0XE6185,142 FO 
RI■6104106192:VPOKEI.148 NERI VP0KE6193, 
144 VP0KE6194,144 VP0KE6195,145 
123 VP0KE6209,150 FOR1=6218106215 :VPOKEI 
.149 NEXT VP0KE621D.147.VP0KE6218.143:FO 
RI=d21 9T0b223 VPOKEI,148 NEXT VP0KE6224, 
146 VP0KE6233,150 VP0KE6234.149 VPOKE623 
5,149 VPOKE623b,147 


130 VPÙKE6240.141 FORI-6241106248 :VPOKEI 
,140 NEXT VPOKE6249,148:VPOKE62S0,147 VP 

0KE6251,143•VP0KE6252.144 :VP0KE6253,144 : 
VP0KE6254.144 VP0KE6255,145 VP0KE6259.15 
O FOR1=6260106263 VPOKE1,151 NEXT 

135 VP0KE6264,1S1.FORI=6265T06268:VPOKEI 
,140 NEXT VP0KE6269.148 

140 VP0KE6272.142.FORI-6273T06283:VPOKEI 
,14 0 NEXT.VP0KE6284.148 :VPOKE6290,141 FO 
RI=6291106301 VPOKEI,148 NEXT:VPOKE6302, 
148 

145 VPOK Eo 305,142 FORI«6306TO6315:VPOKEI 
,148 NEXT VP0KE6316,146 VP0KE6322,141 FO 
RI =<,323106327 VPOKEI . 140 NEXT VPÙKE6328, 

146 VPOKE6329.143 FOR1=6330106334 VPOKEI 
,140 NEXT 

lf.0 VP0KE6338.143 FORI-6339T06346:VPOKEI 
,144 NEXT VP0KE6347.145:VPOKE6354.142 FO 

RI=6355106358.VPOKEI.148 NEXT VP0KE6359, 
146 VP0KE6362,143 VP0KE6363.144 VP0KE636 

4.144 VP0KE6365.144 VP0XE6366,145 

155 VP0KE6387,143 VP0KE6388,144 :VP0KE638 

9.144 VPOKE6390,145 
170 POTSPRITE0.<154,72> 

136 INTERVALON: ON INTERVAL = 15-2ILDGGSUB50 
0 

185 SPRITEOM ÙNSPRITEGOSUB808 

190 STRIG<Ù>0N ONSTRI6GOSUB700 TlME-0 

199 REM CONTROLLO 

200 l> = USR < P > K=INT<<VPE£K<6913>*8)/0> IF 
K-PC>0THENPT=PT»8*<K-PC) 

205 PC = K IFVP££K<6560*PC)O135ANDJ = 0ANPP 
CO32THENOÙSUB600 

218 IFJOOTHENJ*J*1 IFJ-10-2ILPTHENJ-O : V 
PÙKE6914,0 
220 OOSUB10O0 

230 IFRND<1X,O7THENGOSUB300 
240 IFLIO0TMENGOSUB320 
290 60T0280 

299 REM LAMPO 

300 IFLIOOTHENRETURN 

385 PUTSPR ITE3, <INT<RIID< 1)1255), 50), 11 L 
T = 1 PLAV12»20O0Sl0r.45“ RETURN 
320 LT=LT*1 

330 1FLT-5THENPUTSPRITE3,<160,200),11 LT 

=0 RETURN 

350 RETURN 

499 REM SCROLL 

506 B=USR2<B> 

510 M = BT + 1 

515 IFJOOTHEN RETURN 

528 $IRIG<0,ÙFF I1=VPEEK<6914> IF11 = 4THE 
HU*0ELSEI1 = 4 
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538 VPCLE6914. Il $TRI6i0)ON RETURN 

599 REH CAPUTA 

600 SPRITEÙFF IUTERVmlùFF STR18<0>OFF VP 
0LE6914 , V VP0KE6912.94 PLAY" l2»400O0«8n4 

• FÙRI2 S 1TO15O0 NEXT 0P0KE6912.72 VP0KE6 

914,0 

610 VPÙFE6913.«VPEEK<6913>*1>H0(255 PC*I 
NTUVPEEM6913>*8)/8> IFVPEEK <0560. PCX» 
135THEN610 

020 SPRITEON INTERVALON STR16<0>ON RETUR 
N 

699 REM SALTO 

700 IFJO0THENRETURN 

710 J*1 VP0KE6914,8 RETURN 

799 REM OIOChTORE COLPITO (AL LAMPO 

800 IHTERVALOFF FORI*llO20PLAY"l64d800* 
14n50" F0RT-1T058 NEXT:COLOR 15,1,1 FORT 
•1TU5» NEXT COLOR 15,4,7 NEXT 

810 CE*1 

899 REM GAME OVER 

900 CLS IF6E«lTHENPRINT"S(i «tito colAit 
o <U un" PR 1NT * fu 1 * i n#, * PRINT PRINT'dc 
Unii ",(r,"»»tn in* PRINTUSING" » Il • I. 

• I",TIHE/60, PRINT" «(condì." G0T0998 
910 PRINT-L* «*r* • t(rkinat»' * PRINT PR 
INT"H*i effettuato il percorso in" PRINT 
USIN0‘illM.I**,TIME/80. PRINT" «(condì. 

990 IFINKEVIO""THEN£N(ELSE990 
999 REM AGG10RAMENTÙ (ISTANZA PERCORSA 
1080 F0RI*1T023 PRINT NEXT PRINT"0i*tani 
a \PT;CNR»<11>, 

1010 IF(T>200THEN906 

1020 RETURN 

9999 REM' (ATA SPRITES 

10800 (»TA1.3.3,1.7.11,19,11.7.3,195,70, 

44,24,0.0,128.192,192,128,192,190,232.20 

8.192.192.90.48.24,10.32.90 

19010 (AIAl,3,3.1.3,3.3.3,3.3.1.1.1.2.4. 

2.128.192,192.128.192.192.240.192.192.12 

8.126,128.128.128,128,192 

10020 (ATA33,19,11.5,3,3,3.3.3,131.255.0 

.0.0.0.8.132.208,288,100.192.192.192,192 

,192.193,255,0,0,0.0.8 

18030 (ATA6.12.24.48.12.3.8.0.0.0.0.0.8. 
1.3.6.6.0.0,0.0.0.192.48.12.24.48.98.192 
,128,0 ; A 

10099 REM (ATA SCROLL 

10100 (ATA6.31.42.186,235.43.35.205.27,2 
35,120,254.31,282,215.235.4,43.285,44.23 
5.35.195,227,235,6,8.17,31.0.25.205.44.2 
35.183,237.02,237.91,188,235.123,189.194 

.196.235,122.188.194.196.235.281 

10199 REH (mTA CARATTERI 

10200 (ATA255,255.255,255,255,255.255,25 
5 

1O202 (ATAO,170,255,255.255.255,255,255 
10284 («TAO.192,225.227.243.247.247,255 
1020b (HlA0,0,128.192,192,224,224.24 0 
10208 (ATAO.2,3,3,7,7.7,15 
ÌOÌIÙ (»Ta240,240,24 0,24 0,252.252,254.25 
5 

10212 (ATA170,85,170,85,170,85,170,85 
10214 (ATRI,5,10.13,21.26.13.21 
10216 («1610,21,10,13,6,10,5.2 
10216 (ATA170,85.186.53. 10.0.0.0 
10228 (ATAl70.85.170.205.134.0,0,0 


10222 (AI«85,170 84.172.80.8.0.0 
10224 (ATA65.170.36.166 84.168,80,160 
10226 (ATAO,0.0,160.80,176.84.170 
10228 (ATHl28.8e.160.64.168.80.178.84 
18230 («THO.0,140,198.85,170,85,170 
10232 (hTAO,8.0,2,1,5,10,13 
10234 (ATRI.5,10.85.170.85,170,85 
60000 CLS RES1GREÓ0U20 

60010 FORI°60808‘TO60217> READQ POKEI.O 
NEXT RESTORE RETURN 

60020 (ATA219,170.230,240.33,92,234,94.2 
46.8.0.0.0.0,0.8.8.0.0.0,0.211.178,219.1 
69.71.0.0.0.0.0.0.0.0 

60030 (ATAO.0.0.230.128,194,151,234,203. 
91.202.151.234,62.3.50.94.234,195.209,23 
4,128,230.04.194.170.234,203,83,202,170, 

234.62.2 

00040 (AThSO.94,234,195,209,234,128,230, 
32.194 189.234.203,67.202.189.234.62.0.5 
0,94.234.195.209 234.120.230,16,194.288, 
234 203.75.202.208.234.62,1,50.94,234,19 
5.209,234,201 62.0.58.93.234,58 
60050 (AIA93.234,263.39.203.39,79,6,0,33 
.0,27,». 56,95,234,71.58,94,234.87,254.0, 

194 250.234,205,27,235.121,152,79.195.44 

,235,254 

00000 (ATA1.194,6.235.35,205.27.235.195, 
244.234.254.2.144.20.235.285.27,235,121. 

120.79.195.44.235.35.205.27.235.195.14.2 
35.125.243.211 

000 70 (ATA153,124,211,*53.0,0,0,0,219,15 
2,79,163.251,2bl,125,243,211,153,124,246 
.64 211.153.121 211.152.251,201 
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Un esercito di robot vi sta attaccando e voi do¬ 
vete difendervi utilizzando il cannone-laser. Al¬ 
cuni robot, che scompaiono all'improvviso, vi 
permettono di guadagnare un maggior nume¬ 
ro di punti. Usate il tasto T per orientare il 
cannone e la barra-spazio per sparare. Note¬ 


rete che la velocità del gioco aumenta con il 
passare dei secondi. Questo effetto è causato 
dalla linea 155: provate a modificare il valore 
della POKE 59999 e vedrete alterata tutta la 
velocità del gioco. 


1 ÓÙiUBCOOOù 
5 Ti he*® 

15 COLOR 15,4,7:SCREEN1.2CLS:KEY0FF PR1 
NT - ROBOT ":PRINT:PR1 NT:PRIN 

T.PRINT 

20 FORI-1T08 READQ:AI-A*»CHR*<02 NEXT:SP 
RITE»<02*A* A»*** 

25 FÙRI*IT 032 REA DO A«"A**CHR*( 0 2:NEXT:S 

PRITE*>12*h» SPRITE*<22-A*:SPRITE*(32-A* 
:SPRIIE*<42*A».A*-" 

30 F0RI-1T032 REAPQ A»*A« + CHRI<02 :N£XT:S 

PR ITE* ( 5 2 *A$ : A$°“ 

35 FÙRI-1T032 REAPQ:A**A*KMR*<Q) NEXT:S 
PkITE*>62*h1 


40 I'EFUSR*b0Ì18I 
45 l'il)‘2.H2>*3:K3)-|:K4)-l 
50 IIIPUT' SEI PRONTO 7';X* 

60 P = 1 

39 RENSCHERNO 

100 CLS-.COLOR 11. b, 6 

105 FORI*bl58TO6894STEP32:FORJ-0TO2:VPOK 

E I *J,255 :NEXT NEXT 

110 FORI-6464T06559:VP0KE1,255 NEXT 

115 FÙRI-6445T06449:VPÙKEI.28N£XTF0RI* 

6464T06528STEP32:VP0KEI*13,26:VP0KEm7, 


28 :NEXT 

120 FORI-6573T06577:VPOKE1,28 :NEXT 
125 PUTSPRITE5.<116,832,1•GOSU81O00 

149 REM NUOVO 61R0 

150 AB«8-R=R*1:PUTSPRITE1,<116.0>,8:PUTS 
PRUE2, <0,032.1 PUTSPRITE3, <116,1922,8 :P 
UTSPK'I TE4 , <255,83), 1 

155 P0KE59999!,INT(R/32*1 

160 80SUB350 STRI6<0)ONONSTRI6GOSUB320 

170 SPRITEON ONSPRITEGOSUB500 

175 F0RI-1T04 SCI)-l NEXT 

199 REM CONTROLLO 

280 1FFMTMEN220 

210 0OSU83OO 

220 IFF-ITHENGOSUB400 

230 SPR1TE0FF■6OSUB450:SPRITEON 

235 ST»-STRI<TIME> . BG*VAL<R I GHT»<ST« , 1 >> 

240 IFBG>1ORRNK1X.95THEN200 

245 IFRNK1X.5THENPUTSPRITE2,< 116,200 2: 

S(2)*0 GOTO2o0 

250 PUTSPRITE4,<200.2002 S<4>*0 
2c0 »E = 1 FÙRI=1TÙ4 !FS<I)*1THEHAB=0 
2b5 IIEXT GOTO200 


299 REM LETTURA TASTIERA 

300 )PI*INKEYI IFkPIOM*AN»KPf<>*Ì"THEN 
REIUPN 

305 P = P*1 IFP=5THENP=1 
3lu G0SUB350 RETURN 
320 IFF‘1IHENRETURN 
322 PLhV"I19»380«10»37" 

325 F S 1.ONPGQT0330.335,340,345 
330 PUTSPRITE6,(120,782,1 RETURN 
335 PUTSPRITE8,>103,872,1.RETURN 
340 PUTSPRITEO,<120,1832.1 RETURN 
345 PUTSPRITEO,(137,872,1 RETURN 

349 REM I> I SEGNO BUNKER 

350 UPÙ1É6447,28 :VPOKEÓ509,28 :VP0KE6575, 
28 VP01E6513.28 

3oO ONPGOT0385,370,375.380 
365 VP0KE6447,255 RETURN 
370 VP0KE6509,255 : RETURN 
375 VP0KE6575,255 RETURN 
380 VP0KEÓ513.255:RETURN 

399 REM MOVIMENTO BOMBA 

400 TP-PEEK<59999!) P0KE59997•,O.PÙKE599 
99' ,2 

405 P0KE599981,P-1 B*USR<H PÙKE59999!,T 
P 

4lu OMP60T0415.420,425,430 

415 IFVPEEK<6912X5THENF*0 PUTSPRITEO, <2 

00.200) RETURN ELSE RETURN 

420 IFVP£EK<b913><5THENF*0:PUTSPR!TE0, (2 

Ù0.20O2 RETURNELSERETURN 

425 1FVPEEK<69122>187THENF*0:PUTSPRITEO, 
<200,20o2 RETURNELSERETURN 

430 IFVPEEKl69132>25OTMENF=0:PUTSPRITEO, 
(200.200) RETURNELSERETURN 

449 REM MOVIMENTO NEMICO 

450 SH = SM*1 IF LM*5TH£NSN*1 
455 IFm!-1THEN150 

460 IFS(SH)*0THEN450 

465 P0KE59997' ,SM P0KE59998 • , B(SM) 1>*USR 
> B * 

470 GNSMGOTO475.480.485.49O 
4 75 IFVPEEK<6916)>62THEN6O0ELSE RETURN 
480 IFVPEEK<6921)>95THEN6O0ELSERETURN 
485 IFilPEEl. <6924X111 THEN60OELSERETURN 
490 IFVPEEK6929X145THEN600ELSERETURN 
5<>0 STRIGiOlOFF-SPR1TEOFF.F*0 1FP-10RP-3 
IHEHiC*SC«20ELSESC*SCtl00 


25 










:-io tùìimuoù sip>*o putìpritep, uà,2O0> 
UP0KE6914,24 

520 pLAVt255 164.-64i»7ùil0nD2n2- 

530 FOPT“1TÙ150 NEXTVPÙKE6914.0 PUTSPRI 

TEO,ijo0,200> 

535 Hl'l FQRI-U04 IFS<I>-1 THENmB-0 
540 NEXT STR1SIO'ON SPRITEON: RETURN 
599 REM GAME OVER 
DUO STKI0\O)OFF 

o30 CL3 SCREEN1 PRINT" 6AHE ÙWER 

• PRINT PRIMI PRINTPRIMT PRINT-HA1 TOTA 
UZZATO ",SC,"PUNTI* 
o40 ENI, 

REM H6GI0RNAMENTÙ PUNTEGGIO 
1080 FORI«1T023•PR1 NT NEXTPRINT’PUNTI"; 
SC;CHR»Ui>; RETURN 
9999 REM RATA SPRITES 
lOO.oO ImTA24,24,60,255.255,68,24.24 
10010 RmTm 167,48.96,96.224,191,226,254,2 
31,199.195,224,96,96,48,16,0,12,6,6.7,13 
1.71.127,231,227,195,7.3.3,6,4 
10020 l-ATAl, 1,1,3,15,12.27.251,251,27,12 
,15,3.1.1.1.128,128,128.192.240,48,216.2 
23,223,216.48,240,192,128,128,128 
10030 l'ATM128.4,o4.0,144,5,40,134,67,177 
.68,16.68,0,128,16,4,0.129,16,6,129,146, 
34.25,162.16,65.0,8.0,129 
60800 CLS RESTORE6OO20 

60010 FORI-6O800!T068217! REGIO -POKEI,0 : 
M.EXT•RESTORE RETURN 

60020 IhTA219,170,238.248.33,92,234,94.2 
46,6,0.0Ì0,0,0,0.0,8,8,0,0.211,170,219,1 
69.71.0,0.0,0,0,0,0,8 


6OÒ30 Ih Thù, 0.0,230. 123.194, 151,234.203, 
41.202,151.234.62.3.58,94,234,195,209,23 
4 12fl.23ó.o4,194.170,234,203,83,282,170, 
234.62.2 

O0O4O 6ATA50.94.234,195.209,234,120,230, 

32.194.189.234.203,67,202,189,234,62,0.5 

0.54.234.195.209.234,120,230.16.194,208, 

234.283.75,202,208.234,62,1,50.54,234,19 

5.209,234.201.62.0.50,53,234,58 

60050 6HTA93,234,203,39,203.39,79,6,0,33 

.0.27.-.58.95.234,71,58,94,234,07,254,0, 

194.250,234,205,27.235.121,152,79,195,44 

,235.254 

0 OO 0 O Ra lai,194,o,235.35,205,27,235,195, 
244.234.254,2,194.20,235,205,27,235,121. 
128.75.195 44.235,35.205,27,235,195,14,2 
35,125,243,211 

o007o OATm153,124,2 11,153,0,0,0,0,219. 15 
2.79.183.251,201,125,243,211,153,124,240 
,64.211.153,121,211,152,251,281 





MSX 

Tiro al bersaglio 


Mettete a dura prova la vostra mira e la vo¬ 
stra prontezza di riflessi con questo divertente 
e molto ben congegnato programma. Ogni par¬ 
tita che effettuerete vi costerà I dollaro, for¬ 
tunatamente immaginario, ma se sarete degli 
abili tiratori potrete rifarvi vincendo delle som¬ 
me che variano a secondo dei bersagli colpiti, 
che sono rappresentati da dei poveri uccellini. 
Il bersaglio più basso, il più lento e quindi il più 
semplice da colpire, vale 20 centesimi, quello 
centrale, leggermente più veloce, 50 centesi¬ 
mi, quello più alto, il bersaglio pazzo, che si 
muove in maniera imprevedibile ed è quindi 


1 REI! TIRO AL 8ERSAGL 10 
5 GOSU860ÒO6 
10 REM INIZIALIZZAZ10NE 
15 SCREEN1.2■COLOR 1.15,15 KEYOFF:PRINT" 
TIRO hL EERÌh&LIO * 

20 FORI«1T032 REODO A*=A*+CHR*<0> HEXT S 
PRl'rE«<0>*Ai.A»*“ 

25 FuRl=lT032READQ;À*=A*»CHRS<Q):NEXTS 
F’R 11 E4 «. i>=Af h« = '- 

ilo FOR I =1T 032 REA bù A*=A**CHR*<Q) NEXT S 
J"RI1EX2/ = A* A* = "“ 

05 FORI =11032 R£AbO:A$=AlKHR*<Ù>:NEXTS 
rRlt£l*3>=A» A*=" 

•10 FORI =11032 READO A»=A**CHR»<Ù> HEXT S 
PRITEX4XA1 h»=“" 

•I5 FOR1=11032:REAPQ: A*=A*XHR*<0> HEXT S 
PR1TE*<5>=AI m» = ” 

50 F0R1*1T032 REAbQ A»"A»*CHR»<0> NEXT■S 
PR1TE«<6>*H« A»-'" 

55 FORI=1072101115 REmDQ VPÙXEI,0■NEXT 
60 DEFUSR*Ó0118' : PÙKE5999? I , 2 i P0KE59998 1 
, 1 P0KE59999! .5 PU1SPRITE2,(255,88>.4 
B5 b=USR<b> IFINKEY10”THEN80 

Tu I'=RNH1> IFVPEEK<6922)*8THENVP0KE6922 
, 12ELSEVP0KE6922,8 
75 FORI=1T0120 NEXT G0T065 
80 bH=-l 

99 REM DISEGNO SCHERNO 

100 CLS:VP0KE6922,8 PUTSPRITE2,<255,36>, 
12 :PUTSPR1TE3.<140,36 3,12 PUTSPRIIE0,<10 
0,163.8 PUTSPRITE4,<0,64>,4 ;PUTSPRITE5,< 
115,64 >.4 

HO F0RI*6145T06206 WP0KEI.23 NEXT FORI* 
6729T0c742 VPOKEI,23 NEXT FORl=6793T0680 
t. UPOXEI.23 NEXT 

115 FORl = 601ol06347 VPOKE!,135 :NEXT FORI 
=6496T06784STEP32 F0RJ=0T07:VPOKEI»J,134 
' VPOKE1*J424,134 NEXT NEXT 


molto difficile da mirare, vi farà vincere I dol¬ 
laro. Per ogni partita avete a disposizione 5 col¬ 
pi da utilizzare senza limiti di tempo, termi¬ 
nati i quali vi verrà chiesto se desiderate gio¬ 
care ancora, nel qual caso vi viene addebitato 
il costo della nuova partita, altrimenti verrà vi¬ 
sualizzata la vostra situazione. Per sparare è 
sufficiente premere la barra-spazio. 

Se volete modificare la velocità del movimento 
dei bersagli rendendo il gioco più facile oppure 
più difficile, potete agire sui valori della linea 
350 per il bersaglio centrale e 410 per il ber¬ 
saglio basso. 


120 VP0KE6144,24 VP0KE6728.24VP0KE6176. 

26 VPOKE6792.26iVPÙKE6175,25 V P 0 K E 6 ?43,2 

5 -VPÙKEÓ2Ò7,27 :VP0KE6807,27 

125 VPÙKE67Ó0.22-VP0KE6775.22 VP0KE6783, 

135 VP0KE6735,136 VP0KE6767,137 

130 STRIG'0>0N0NSTRIGG0SU8700 

140 OOSUBSuO 

199 REM CONTROLLO 

200 GOSUB300 6ÙSUB350 6ÙSUB400 
210 IFDH>*OTHEN6ÙSUB458 

2fc0 1FUN=1THEN6OSUB80O:UH=8 
250 60TÙ200 

299 REM N0V1NENT0 BERSAGLIO SUP. 

300 P0KE59999I,7 P0KE59997!,8 IFRHDUX. 
5THENP0KE59998I,1ELSEP0KE59998!,3 

320 1FVPEEK\6913>>194THENPÙKE59998!.1ELS 
£IFVP£EK< 6913X65 THENP0KE59998!,3 
330 D*USR> DI 

335 IFRNb<lX.5THENVP0KE6914,4ELSEVP0KE6 
914,0 

340 RETURN 

349 REM MOVIMENTO BERSAGLIO MEDIO 

350 P0KE59599',13 P0KE59997I.2 K1=VPEEK< 
6922> VPOKE6922iVPEEKC6926) VP0KE6926.K1 
360 POKE55998!,1* b*USR<D> PÙKE59997! ,3 ; b 
= USR>. b) 

370 RETURN 

399 REM MOVIMENTO BERSAGLIO BhSSO 

400 C2*<C2*1>M0D2:P0KE59997I.4 IFC2-0THE 
NK1=VPEEK<6930> VP0KE6930,VPEEKv6934>: VP 
0KEo934,Kl 

410 P0KE59999),4:P0KE59998!,3b=USR<D) 1 P 
ÙKE59997•,5 D=USR<D> 

430 RETURN 

449 REM NUOVO BERSAGLIO 

450 ÙN<bH4l)60T0465,469,47ù.475,480,485 
465 PUTSPRITEO,<100.16)•60T0450 

470 VPÙkE6922,6 VP0KE6926,12 
472 60TÙ450 








475 VPukE6922.8 VP0KEÒ926.12 
477 GÓT0490 

480 VPOKE6930.18 :VP0KE6934,20 
483 G0TÙ496 

435 VP0RE6930.16 VPOXE6934,20 
490 DH=-1 RETURN 

499 REM BERSA6LI0 COLPITO 

500 PLAVl50»1200* 10n74r3On74r30n74r3On7 
4r 3On74r30n74 r 30o74 • :ON'<DH* 1 >3010505,5 88 
,510.515.528,525 

505 M«M*1 VP0KE6914.24 FORI 2 = 1TO500 NEXT 

507 VP0KE6914,0 0OTÙ540 

510 M*M *.5 VPOKE6922,24FÙRI2-1TO500 NEX 

T 

512 VPÙKE6922,8 0OTO540 

515 II-M-.5 VP0KE6926,24 FOR12=1TO5U0 NEX 

T 

517 VP0KE6926,12 :SOT0540 

520 11• N♦. 2 0POKE6930,24 FOR12»1TO506 NEX 

T 

522 VPOKE6930,16:GOTO540 

525,. VPÙKE6934,24 M"M».2 :FORl2 = 1TO500 NEX 

T 

527 VP0KE6934.20 

540 UM-1.STRI6^0>ÙN RETURN 

599 REM BERSAGLIO MANCATO 

600 STRlSi 0 >OM VPOKE8191,138 FOR11=1TO10 
0 NEXT:VP0KE6191, 23 

b20 UH»1 RETURN 

699 REM SPARO 

700 STRIS<0)OFF PLAY"164u60«8n27* NS=NS* 
710 IFABS<VPEEK<6929>-114X3THENDH = 4:60T 

0580 

720 IFABS<VPEEK<6933>-114X3THENDH«5 SOT 
0500 

730 IFABSiVPEEK<6921)-114X3THENDH=2:60T 
O5Ò0 

740 IFAB$<VPEEK<6925)-114X3TH£NDH»3 60T 
0-500 

75Ò IFNBS<VPEEK<69131-114X3THENDH = 0 SOT 
0580 

760 60T0660 

799 REM AGGIORNAMENTO VINCITA 

800 IFM>=6THENA*=“ Vinci ■ 1"ELSEA*=* 
P^r 01 f 

805 !FM<Ó1HENI3»1NT<-M> 14-- <N*131ELSE 13 
= IN1<H> I4*H-13 

807 F0RI*1T022:PRINT NEXT PRINTfl*, PRIHT 
US IMS*«II*. 13, ;PRINIUSING".»I*, 14 PR1NTC 
HR$'11), 

818 IFHS>4THEN850ELÌERETURN 
049 REM ALTRI COLPI? 

850 PLAY*I10«14*2000n30n40n26n27* STRISI 
010FF:FORI*11023 PRINT NEXT PRINT"Altri 
5 collii? < S/H ) " ; CHRI < 11 ) ; 

855 Xt* IMBEVI IFX*** “THEN855ELSEIFXIO"S 

"ANDXIO*i»"ANBXI <> *N“ ANIiXIO “n*TMEN855 

8o0 IFX*=*N"ùRX»**n*TMEN900 

865 H»H-1.NS*0 OOSUB800 

876 FOR!»ó882TOo910 VPOKE1,32 :NEXT STR16 

<0>ÙN RETURN 

899 REM GAME OVER 

960 SCREEN1 IFMC0THENPR1 NT‘PERPI **, P 

RINTUBINO*•••.«•*;-M.6OTO990 
920 PRINT*HAl VINTO * * ; :PR1NTUSI Nò *• 
•I.«»*,M GÙTO990 


990 IFINTEY J<>“"THENENBELSE990 
*9u REM I-ATA SPRITES 

lóoo 1'hTh128,64,9656,28.13.7,3,1,<-,0,0, 
0.0 0,0,1,2,6.28,56,176,224,192,128.04,0 


.0.0,0,0,0 - 
10010 DAThO,0.0,0,0.1,7.15.25,50.32,32,3 
2,0.0-0.0,0,0,0.0,128*224.240,152,76,4,4 


10020 DATAO,0,0,0.3,14.24,12.6,115,255,6 
3,7.0,0.0.0,0.0.0,252.32,04,32.248,255,2 
55.254,252,248,0,0 . . „ „ „ 

10030 DATA0.O,0.0.1.115,255.63,3,7,7,3,0 

,0.0,0,6.0,0.0,248,254,255.255,252.248,2 

48,248,252.62,15,0 

10040 DaIA0.0.0,0.63.4,2.4.63,255,255,12 
7,63,31.0.0.0.0>0.®' 192 ,112.24,48.224,20 

>9 4 ft (I H 


10050 DATA0,0,0.6.31.127,255,255,63,31,3 
1.31.63,124,240,0,0.8,0.0,128,206,255,25 

2.192.224.224,192,0,0,0.0 

10060 DATA130,200.96,49,25.45,39,75.19,5 

.66,4.65,144,4,34.1,35,6.140.216,177,224 


,201,196,144,66,32,4,18.128.1 
10099 REM DATA CARATTERI 
10160 DATA170,85,170,85,170,85,170,85 
10162 DÀTA96,32,32,32,32,32,32,32 
10164 DATA32,32.48.48,48,48,112,56 
1O106 DATA48,5e,56,56.60,68,60,60 
10168 DATA0,0,24,36,82,133,64,18 
10116 DATA170,85.170.85,0.0.0,0 
60000 CLB RESTOREoO020 

60010 FORI =600001 T 060217 ! : RE ADCr POKE1,0 .’ 
NEXT RESTARE RETURN 

6O02Ó DATA219,170,230,240,33,92,234,94,2 
46.8,0.0,0.0.0.0,6.3.8,0,0.211,1T0.219,1 


69.71.0,0,6.0.0,0.0.0 

66038 DATA6,0.0,230.128,194,151,234,283. 

91.202,151,234,62.3,50,94,234.195,209,23 

4.120,230,64,194,170.234,203,83,202,170, 


234,62.2 

66640 DATA56, 94,234,195,209,234,126.230, 

32,134,189.234,203,67,202,189,234,62,0,5 

0,94,234,195,209,234,120,230,16,194,208. 

234,203,75,202,208,234,02,1.50,94,234,19 

5.269,234.201.62,0,50,93,234,58 

00050 DATA93,234,263,39,203,39,79,6,0,33 

.0,27,9,58,95,234,71,50,94,234.87,254,0, 

134.250.234,205,27,235,121.152,79,195,44 

,235.254 

606oO DATAI,194,6,235,35,265,27,235,195, 
244,234.254,2,194.20,235,205,27,235,121, 
128.79 195,44,235,35,205,27,235,195,14,2 
35.125.243.211 

60070 DATA153,124,211.153,8,0,0,0,219,15 
2,79,183,251,201,125,243,211,153,124,246 
,64.211.153,121,211.152,251,201 
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Dopo il successo ottenuto dalla prima proposta, ecco a disposizione 
del tuo TI-994/A un assortimento di altri splendidi programmi, 
tra i quali il richiestissimo EXTENDED BASIC; il MODULO ADVENTURE, 
che ti permetterà di vivere appassionanti avventure 
e l’EDITOR/ASSEMBLER, indispensabile per il definitivo salto 
di qualità del tuo computer. 

Ordina subito, per essere sicuro di ricevere i programmi al più presto. 



EXTENDED BASIC 

Cod. DTXNX01 - L. 270.000 


Permette, con l'espansione della memoria, di pro¬ 
grammare in linguaggio macchina. 


Finalmente disponibile il linguaggio di program¬ 
mazione compatibile con il BASIC TI-99/4A, con le 
seguenti aggiunte: righe multidichiarazioni. di¬ 
chiarazioni IF-THEN-ÉLSE. accesso diretto allo 
schermo, sottoprogrammi BASIC con variabili lo¬ 
cali, autoawiamento dei programmi su disco, faci¬ 
le controllo di fino a 28 sprite con concatenamento 
programmi BASIC, fusione .codici, programmi 
protetti, dichiarazioni ON ERRÒR (Errore in atto) e 
funzioni logiche di Boote (AND, OR, NOT 1E, O. 
NO, ecc). 


MODULO AVVENTURA 

Cod. DTXRX01 - L, 70.000 


Si tratta del modulo di comando, da inserire nella 
consolle, che funge da interprete del linguaggio 
delle cassette sottodescritte. 

Uno strumento indispensabile per arricchire la tua 
software-teca di nuove entusiasmanti avventure. 

Il modulo viene fornito con l'avventura "IL PIRA¬ 
TA". 

Configurazione richiesta: registratore a cassetta. 1 


Elenco delle "Avventure" che girano esclusivamente col MODULO AVVENTURA 


Nove programmi entusiasmanti, semplici da usare 
ma difficili da finire. 

All'inizio di ogni avventura viene proposta la situa¬ 
zione in cui ci si trova e viene posta la domanda: 
COSA DEVO FARE? Utilizzando gli oltre 200 voca¬ 
boli previsti dal vocabolario del computer, darai gli 
ordini conseguenti, per trovarti in situazioni sem¬ 
pre diverse fino a realizzare lo scopo del gioco, 
ogni volta differente per ogni titolo. 

Avventure che stimolano la tua capacità di ragio¬ 
nare in modo logico e che richiedono ore, e anche 
settimane, per concludersi. 


Savage Island Series (Serie dell’Isola Selvaggia) 
Cod. DTXMX35 - L. 30.000 


L'avventura si divide in due parti ed inizia ai margi¬ 
ni di una giungla impenetrabile. Mentre esplori 
l'isola, incontrerai delle creature insolite. Dopo 
aver completato la prima parte, riceverai la parola 
d’ordine per iniziare la seconda parte, dove o di¬ 
venterai il più grande eroe al mondo o andrai in¬ 
contro a una fine rapida ed orribile. 


Voodoo Castle (Castello del Voodoo) 

Cod. DTXMX32 - L. 30.000 

Sei all'interno di una cappella di fronte ad una bara 
chiusa. Esplorando il castello, cercherai di racco¬ 
gliere le informazioni necessarie per liberare il 
Conte Cristo dalla terribile maledizione che i suoi 
nemici gli hanno fatto. 

Adventureland 

Cod. DTXMX0I - L. 30.000 

Ti trovi all'inizio della foresta di un mondo di fiaba. 
Esplorandolo, potrai scoprire 13 diversi tesori co¬ 
me pure il luogo particolare dove riporli. 

Strange Odyssey (Strana Odissea) 

Cod. DTXMX24 - L 30.000 

Inizia quando ti rendi conto di essere "naufragato" 
su un minuscolo pianeta e quindi devi riparare 
l'astronave per poter tornare a casa. 

Mentre cerchi i pezzi di ricambio sul pianeta, tente¬ 
rai di scoprire i segreti di un'antica civiltà, racco¬ 
gliendo i tesori In cui ti imbatterai lungo la strada. 

The Golden Voyage 

Cod. DTXMX10 - L. 30.000 

Comincerai con l'individuare il palazzo reale nella 
città persiana. Nel palazzo incontrerai l'anziano re 
al quale rimangono solo tre giorni di vita, a meno 
che non riuscirai a ringiovanirlo. 

Portando soltanto una borsa d'oro, salperai in ma¬ 
re alla ricerca della mitica fontana della giovinezza. 


Mystery Fon House (La casa del Mistero) 

Cod. DTXMX17 - L. 30.000 

Prima di procedere all'esplorazione, devi meditare 
su come fare per entrare nella Casa del Mistero. 
Una volta dentro, potrai vedere tutti gli angoli della 
casa, dove si nasconde un prezioso premio. 

The Count (Il conte) 

Cod. DTXMX26 - L. 30.000 

Ti svegli da un pisolino e ti trovi in un letto con un 
paletto da tenda in mano. Sta a te scoprire chi sei, 
cosa stai facendo in Transilvania e perché il posti¬ 
no ha consegnato un flacone di sangue! 

Pyramid of Doom (La Piramide del Destino) 

Cod. DTXMX22 - L. 30.000 

L'avventura inizia in un deserto, nei pressi di uno 
stagno dal quale fuoriesce un palo. Grazie alle tue 
ricerche, troverai una piramide solo di recente sco¬ 
perta dalle sabbie mobili. 

Cercherai l'ingresso, raccoglierai tesori e cerche¬ 
rai di fuggire dalla piramide. 


Ghost Town (La Città Fantasma) 

Cod. DTXMX09 - L. 30.000 

Tutte le città fantasma sono misteriose, ma questa 
ha un fascino particolare: è abitata da fantasmi veri 
ed è piena di tesori. 

Esplora tutti i vecchi edifici per vedere quanti ne 
riuscirai a trovare. 





I programmi seguenti sono invece moduli Solld State Software, pronti da Inserire: 


Music Maker (Il compositore di Musica) 

Cod. DTXQX01 - L. 42.000 - con istruzioni in italia¬ 
no 

Un ottimo programma sia per chi vuole avvicinarsi 
alla musica senza cognizioni di base, sia per chi 
jWeve studiare composizione direttamente sul pro¬ 
gramma e sia per chi utilizza il suono dal punto di 
vista tecnico ed ha interesse per tipo di frequenza, 
fece.. Il programma prevede due opzioni: scrittura 
di partiture sul pentagramma: inserendo battuta 
per battuta è possibile scrivere partiture composte 
anche da tre voci e persino stamparne gli spartiti 
(in questo caso è necessaria una stampante e l'in¬ 
terfaccia RS232 o similare). L'altra opzione preve¬ 
de la realizzazione delle melodie prendendo in 
esame gli Hertz di una singola nota. 

Parsec 

Cod. DTXMX21 - L. 42.000 


Soccer (Gioco del Calcio) 

Cod. DTXMX23 - L. 37.000 

Inutile spendere troppe parole per questo apprez- 
zatissimo programma. Cinque giocatori per squa¬ 
dra, con passaggi, tiri, intercettamenti, parate, ca¬ 
riche e molte altre tattiche del calcio. Potete persi¬ 
no avere il replay immediato di una rete, al rallenta¬ 
tore. 

TI Invaders (Invasori TI) 

Cod. DTXMX27 - L. 30.000 

Il mondo viene attaccato da numerose creature 
odiose provenienti dallo spazio. Devi fare affida¬ 
mento sulla tua agilità mentale e fisica per distrug¬ 
gere le creature multicolori con i missili a disposi¬ 
zione. 

Car Wars (Guerre di Auto) 

Cod. DTXMX06 - L. 30.000 


PARSEC è la tua astronave, con la quale combatte¬ 
rai gli alieni ribelli e le loro navicelle, buttandole 
fuori rotta e emetterai un fuoco dal tuo laser che fa 
inaridire. Tenterai di sopravvivere alla ' cintura” di 
asteroidi mortali. 

Per attivare le capacità sonore d i questa cartuccia, 
puoi utilizzare lo Speech Synthesizer. 


Se ti emozionano le corse automobilistiche, abbi¬ 
nate alla possibilità di battere l'avversario con 
astute manovre, ecco il programma che fa per te. 
Cimenta la tua velocità ed abilità contro il compu¬ 
ter mentre cerchi di avanzare sul circuito, evitando 
incidenti che farebbe saltare il tuo bolide fuori 
pista. 


E ora un'altra eccezionale proposta: 


Game Writer's Pack 1 & 2 

Cod. DTXIX13 - L. 35.000 
(prezzo per le 2 confezioni) 


Fun - Pac (1-2-3) 

Cod. DTXMX36 - L. 27.000 
(prezzo per 3 cassette) 


Un'ottima realizzazione didattica divisa in due par¬ 
ti autonome ma complementari che insegna i prin¬ 
cipi (e li approfondisce) della programmazione 
BASIC, tramite la programmazione di videogiochi. 
Molto ben strutturata e comprensibile, utilizza un 
linguaggio semplice ed elementare. In ogni confe¬ 
zione è compresa una cassetta con i giochi di dui si 
parla nel corso della dissertazione. In totale 6 gio¬ 
chi per confezione. 

La trattazione è basata sul TI-BASIC anche se non 
disdegna l'EXTÉNDED BASIC. 


Tre cassette (non acquistabili separatamente), 
con 8 giochi complessivi ben strutturati ed avvin¬ 
centi. Dalla corsa dei cavalli al gioco del golf. Dal 
salvataggio di scienziati dalla contaminazione nu¬ 
cleare alla navicella Supernova, un ottimo gioco 
"adventure". 



Edltor/Assembler 

Cod. DTXAX01 - L. 180.000 

L'eccezionale programma che ti permette di pro¬ 
grammare in linguaggio di programmazione TSM 
9900 è dà accesso diretto a tutte le caratteristiche 
del sistema tra cui audio, voce, grafica ed I/O (En¬ 
trata/Uscita), oltre a mettere a disposizione la mas¬ 
sima rapidità grazie al microprocessore a 16 bit del 
computer. Le routine in linguaggio di programma¬ 
zione possono essere svolte come programmi in¬ 


dipendenti oppure collegate a programmi TI BA¬ 
SIC o TI BASIC ESTESO con l'impiego di una 
chiamata di sottoroutine. Oltre al modulo SSS, il 
programma comprende due floppy-disk (uno dei 
quali contiene il gioco TOMBSTONE CITY) e il 
Manuale Utente che dà tutte le informazioni sulla 
composizione del software. 

L EDITOR/ASSEMBLER richiede i seguenti optio¬ 
nal: 










— Peripheral Expansion Box 

Cod. ETX0X01 - L. 320.00tf 

— 32 K Expansion Card 

Cod. ETXOX02 - L. 340.000 


N. B. È possibile acquistare insieme gli optional 
ETXOXOI - ETXOX02 - ETXOX03 - ETXOX04. al 
prezzo complessivo di L. 1.250.000 anziché L. 
1.580.000. In questo caso, il codice da indicare per 
l'acquisto dei 4 pezzi è ETXOX05 


- Drive Control Card 

Cod. ETXOX03 - L. 440.000 

— Floppy disk drive Box 

Cod. ETXOX04 - L. 480.000 


e, infine, freschi di stampa, escontati del 10 % sul prezzo di copertina: 


Paper Book - TI-99/4A (con cassetta) - 
editore J.solt 

Cod. ASOC007 - L. 16.200 

Una selezione dei migliori programmi tratti dal no¬ 
stro settimanale PAPER SOFT, scelti accurata¬ 
mente sulla base della loro originalità e fantasia. 


— 35 Programmi per il TI-99/A4 - 

editore MUZZIO 

Cod. AMUC024 - L. 9.000 

Programmi divertenti e didattici, dal labirinto al 
tennis, dagli anagrammi alle conversioni metriche 
e tanti altri ancora. 



INVIA IL TAGLIANDO A: 


Spett. J.sprt - Viale Restelli, 5 - 20124 Milano (MI) 
Tel. 02/6888228-683797-6880841/2/3/ 


Ordino il seguente software/libri per il TI-99/4A: 


cod. 


. cod. 

cod. 



cod. 

. cod. 



per un totale di L. -f L. 2.500 per contributo (isso di spese di spedizione. 

Scelgo la seguente modalità di pagamento: 

O pagherò in contrassegno al postino 
□ allego assegno (o contanti) 

O verso l'importo sul C.C.P. n. 19445204 
intestato a J.so/f (allego ricevuta) 

Nome . 

Cognome . 

Via . n. 

CAP 


Città 


Prov. 





























